Bom dia!!
Já tentou assim?
Sub AleVBA_14939()
MyPath = Range("A1").Value
If Right(MyPath, 1) <> "" Then
MyPath = MyPath & ""
End If
FilesInPath = Dir(MyPath & "*.xl*")
If FilesInPath = "" Then
MsgBox "Arquivo não encontrado"
Exit Sub
End If
End Sub
Att
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 10/03/2015 8:44 am