Había pensado utilizar ésto para recorrer la carpeta:
Sub RecorreArchivos()
Dim MyObj As Object, MySource As Object, file As Variant
file = Dir("c:\testfolder\")
While (file <> "")
Select Case file
Case InStr(file, "movimientos")
Proceso fichero
Case InStr(file, "fechas")
Proceso fechas
End Select
file = Dir
Wend
End Sub
Es un método efectivo? No tengo demasiada experiencia con VBA...
Gracias,