ayuda con macro

hola, Ignacio ?

... macro... permite listar... los archivos de un directorio predeterminado, en este caso todo lo que cuelga de C:\
... me gustaria... que al ejecutar la macro me permita elegir el directorio a listar.

op1: si consideras que nunca te equivocaras cuando te lo pregunte... cambia las dos primeras instrucciones a:
ruta = Trim(InputBox("Indica Ruta y [Sub]Carpetas a listar...", "C:\"))
If Right(ruta, 1) <> "\" Then ruta = ruta & "\"
nombre = ruta & "*.*"

op2: podrias tambien poner [p.e.] en 'B1' la ruta que quieres listar... digamos: c:\mis documentos modificandolas a:
ruta = Range("b1")
If Right(ruta, 1) <> "\" Then ruta = ruta & "\"
nombre = ruta & "*.*"

[opcional] tambien puedes re/configurar el tipo de archivos que se busca... *.* *.xls *.txt [etc. etc. etc.]

saludos,
hector.

Sub Archivos()
ruta = "C:\*.*"
nombre = Dir(ruta)
i = 1
Do While nombre <> ""
Cells(i, 1) = nombre
i = i + 1
nombre = Dir
Loop
End Sub