Consulta, como traer a excel los archivos que estan en una carpeta

hola, Nelson !

... de que forma por una macro puedo listar todos los nombres de los archivos que se encuentran en una carpeta
... sea predeterminada o que se pueda escojer tambien

prueba a 'escribir' una ruta 'especifica' en alguna celda [que seria la celda 'activa']
-> p.e. c:\documents and settingsombre del usuario\mis documentos\
no olvides el '\' al final
y ejecutas una macro +/- como la siguiente:

Sub Listar_archivos_en_()
Dim Archivo As String, Fila As Integer
Archivo = Dir(ActiveCell & "*.xls")
Do While Archivo <> ""
Fila = Fila + 1
ActiveCell.Offset(Fila) = Archivo
Archivo = Dir()
Loop
End Sub

saludos,
hector.