Удаление файлов по списку - VBA

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

Добрый ночи, подскажите что делаю не правильно, есть два макроса, один загружает список всех файлов из подкаталога, записывает в диапазон B путь к файлу, далее я в диапазоне F проставляю удалять данный файл или нет (ДА или НЕТ) запускаю второй макрос который должен пробежаться по диапазону F и если там стоит ДА обратиться к файлу по заданому пути в диапазоне B и собственно удалить его, вот собственно со вторым у меня проблемы, подскажите пожалуйста

                    Листинг программы
                
 
                        
                          
                    
Sub Delete_File2()
Dim objFSO As Object, objFile As Object
    Dim sFileName As String
     Dim s As String
    For Each Cell In Range("F2:F100")
     If Cell = "ДА" Then s = Cell.Offset(0, -4).Value
     sFileName = s
     Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.GetFile(sFileName)
    objFile.Delete
     Next
     End Sub

Решение задачи: «Удаление файлов по списку»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub Delete_File2()
Dim FSO As Object, s$, Cell as Object
 Set FSO = CreateObject("Scripting.FileSystemObject")
   For Each Cell In Range("F2:F100")
     If Cell = "ДА" Then FSO.DeleteFile Cell.Offset(0, -4).Value
   Next
Set FSO=Nothing
End Sub