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.....