FileSearch, VBA - excel 2007

[Daniel Causin]

Utilizo uma macro no excel 2003 que utiliza o FileSearch, mas não consigo utilizar esta macro no excel 2007, pois ele não reconhece o Application.FileSearch.

Segue abaixo o trecho da macro que preciso modificar para utilziar no excel 2007.

Podem me ajudar?

With Application.FileSearch

.NewSearch

.LookIn = "C:\BIA BIS\Temporário RD"

.SearchSubFolders = False

.FileName = "*.xls"

.Execute

qntArq = .FoundFiles.Count

If qntArq = 0 Then

MsgBox "Nenhum arquivo encontrado nesta pasta!", vbInformation, "Pasta Vazia"

GoTo Fim

Else

For i = 1 To .FoundFiles.Count

'abre cada planilha

Set planilhas = Workbooks.Open(FileName:=.FoundFiles(i))

Next i

Obrigado!

[paulosemblano]

Pesquisando na Internet deixo esse link que me auxiliou:

http://www.ozgrid.com/forum/showthread.php?t=71409