Resolvido!

Obrigado!

Boa tarde lokaumz

Vc poderia postar aqui a solução da tua dúvida, pois certamente irá ajudar outras pessoas que estão com a mesma dúvida e acabam chegando a este tópico através dos sites de pesquisa.

Um abraço

Private Sub Workbook_BeforeClose()

Dim linha, pasta, pasta1
Dim lngStart As Long
Dim lngEnd As Long
    

Application.DisplayAlerts = False

With Application.FileSearch

' Pasta em que irá procurar o arquivo. Dentro dela poderá haver quantas subpastas tiver.
.LookIn = "C:TESTE"

.FileType = msoFileTypeAllFiles
.SearchSubFolders = True
.Execute
End With

cnt = Application.FileSearch.FoundFiles.Count

For i = 1 To cnt

If Application.FileSearch.FoundFiles.Item(i) = (Left(Application.FileSearch.FoundFiles.Item(i), InStrRev(Application.FileSearch.FoundFiles.Item(i), "")) & Left(ThisWorkbook.Name, InStrRev(ThisWorkbook.Name, ".") - 1) & ".xls") Then

' Deleta o arquivo encontrado
Kill Application.FileSearch.FoundFiles.Item(i)

' Você pode colocar seu script aqui!

End If

End Sub