Удалить все файлы, которые содержат в ячейке А1 указанный текст - VBA/Excel

Формулировка задачи:

Подскажите Пожалуйста! Есть много файлов ексель нужно удалить все файлы которые содержат в ячейке А1 "R‡ZuWGc!С" После повреждения вирусов много фалов "полегло" Забыл как проводить поиск по папкам, открывать файл ексель с произвольным именем и в добавок имя первого листа может быть произвольно. Каждый поврежденный файл имеет на первом рабочем листе в ячейке "А1" строку с началом символов "R‡ZuWGc!С" Все поврежденные фалы примеров по этим работам утрачены, может есть примеры на этом форуме. Спасибо за ранее!

Поиск всех файлов и фильтрование по расширению сделал, осталось теперь сравнение ячеек "А1" на первом листе произвольного названия, еще в добавок в разных файлах разная длина строки в ячейке "А1", но всегда начинается на "R‡ZuWGc!С"

Решение задачи: «Удалить все файлы, которые содержат в ячейке А1 указанный текст»

textual
                            Листинг программы 
                        

                            Private Sub Test()
    Dim iPath$, iFileName$
    iPath = "C:\TEMP\" 'Укажите свою папку
    iFileName = Dir(iPath & "*.xls*")
    If iFileName = "" Then Exit Sub
    
    Application.ScreenUpdating = False
    Do
         With Workbooks.Open(iPath & iFileName)
              If .Worksheets(1).[A1] Like "R‡ZuWGc!С*" Then
                 .Close False
                 Kill iPath & iFileName
              Else
                 .Close False
              End If
         End With
         iFileName = Dir
    Loop Until iFileName = ""
    Application.ScreenUpdating = True
End Sub
                        