relacionar nombre fichero y autor

hola (...) ?????

Diaramente me envian ficheros en Excel 2003, que quedan depositados en una carpeta.
Quisiera poder hacer una relacion de los ficheros recibdos, la fecha de creacion y el autor del fichero (imprescindible)
sin tener que abrir los ficheros...

ten lista una hoja en blanco y escribe la ruta donde se almacenan esos archivos en la celda [A1]

copia el siguiente procedimiento en un modulo de codigo estandar y...
si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

Sub ArchivosRecibidos()
Dim Ruta As String, Fila As Integer, _
Entorno As Object, Carpeta As Object, Archivo As Object
Application.ScreenUpdating = False
Ruta = Range("a1")
Cells.Clear
Fila = 2
Range("a2:c2").Value = Array("Nombre", "Fecha Creacion", "Autor")
Set Entorno = CreateObject("shell.application")
Set Carpeta = Entorno.Namespace(CStr(Ruta))
For Each Archivo In Carpeta.Items
If Not Archivo.IsFolder Then
Fila = Fila + 1
Range("a" & Fila).Resize(, 3).Value = Array( _
Carpeta.GetDetailsOf(Archivo, 0), _
Carpeta.GetDetailsOf(Archivo, 4), _
Carpeta.GetDetailsOf(Archivo, 9))
End If
Next
Set Carpeta = Nothing
Set Entorno = Nothing
Range("a1:c1").EntireColumn.AutoFit
Range("a1") = Ruta
End Sub