Visual Basic pesquisar a existência de arquivos listados

[valbeezerra]

Olá amigos,

 

 A rotina abaixo verifica a existência ou não de um determinado arquivo na unidade C:\

 

 Tenho uma planilha com algumas centenas de nomes de diretórios de  arquivos na coluna B e procuro uma forma de fazer essa mesma função do código abaixo para verificar se os arquivos não foram alterados. Ou seja, antes de abrir a planilha executaria a macro para verificar se houve alteração. No caso seria um Loop, mas  como sou barriga verde em VBA, não faço ideia de como fazer. 

 

Agradeço a quem poder da essa força.

 

Sub Verifica_Arquivo()

Dim pesquisa As Variant

pesquisa = "C:\Users\PC\Desktop\PASTA\NOME DO ARQUIVO"

If Dir(pesquisa) = vbNullString Then
strCheck = False
Else
strCheck = True
End If
If strCheck Then

MsgBox " encontrado"

Else

MsgBox " arquivo inexistente"


End If
End Sub