Hola,
No se si es lo que necesitas pero prueba con esto y me dices..
Application.Dialogs(xlDialogOpen).Show
Esto muestra el cuadro de dialogo de abrir, seleccionas el fichero que necesitas y mientras este activo la sentencia For Each lo leerá.
Espero que te sirva.....
No se si es lo que necesitas pero prueba con esto y me dices..
Application.Dialogs(xlDialogOpen).Show
Esto muestra el cuadro de dialogo de abrir, seleccionas el fichero que necesitas y mientras este activo la sentencia For Each lo leerá.
Espero que te sirva.....