Listar arquivos de um diretório

[CBARBIERI]

Boa tarde pessoal,

após muitas tentativas, desisti e estou recorrendo ao fórum.

Preciso de um código de VBA que liste todos os arquivos .xls de um determinado diretório e que contenham uma planilha com nome "2008". Os arquivos que não tiverem nenhuma planilha com este nome, não devem ser listadas...

É possível?! Vocês podem me ajudar?!

Fico no aguardo.

CBARBIERI

[João.Neto]

É possível sim !!!

Sub LocalizaArquivo()

With Application.FileSearch

.LookIn = "F:\"

.FileType = msoFileTypeExcelWorkbooks

.Filename = "*2008*"

If .Execute() > 0 Then

For i = 1 To .FoundFiles.Count

ThisWorkbook.Worksheets(1).Range("A65536").End(xlUp).Offset(1, 0) = _

.FoundFiles(i)

Next i

Else

MsgBox "Não achei nada, não!"

End If

End With

End Sub

B)