dfagundes

Prezados, Estou com o problema no comando "Set fs = Application.FileSearch" Pois em alguns dias utilizo o office 2003 e 2007, assim fico impossibilitado de utilizar no 2007 a seguinte macro. ' Efetua o loop para identificar todas as planilhas em .XLS Set fs = Application.FileSearch ( Gostaria de algo similiar que possa executar da mesma maneira em ambos dos offices) With fs .LookIn = "C:\Documents and Settings\rubensantos\Desktop\teste\" .SearchSubFolders = False .Filename = "*.xls" If .Execute() > 0 Then For i = 1 To .FoundFiles.Count Application.ScreenUpdating = False Workbooks.Open Filename:=.FoundFiles(i) 'Entra uma gravação de uma macro que efetuei ' Aqui finaliza o código acima descrito. Next i Else MsgBox "Nenhum arquivo foi encontrado." End If End With Se alguém puder me ajudar com esta situação, pois sou leigo no assunto e tenho interesse para aprender. Att, Diogo Fagundes