Si te sabes arreglar con las macros acá tenés una solución...
Option Explicit
Sub Load_Files() 'By JuanC, 8 de Octubre de 2006
Dim sFiles() As String, sRuta$, sExt$
Dim sFileName$, lCount&
Dim Atrib As VbFileAttribute
On Error Resume Next
sRuta = "C:\Imagenes\"
sExt = "*.jpg"
Atrib = vbHidden Or vbArchive Or vbNormal Or vbReadOnly Or vbSystem
sFileName = Dir(sRuta & sExt, Atrib)
lCount = 0
Do While sFileName <> ""
If sFileName <> "" And sFileName <> "." And sFileName <> ".." Then
ReDim Preserve sFiles(lCount) As String
sFiles(lCount) = sRuta & sFileName
lCount = lCount + 1
End If
sFileName = Dir()
Loop
For lCount = 0 To UBound(sFiles)
[A1].Offset(lCount).Value = sFiles(lCount)
Next
Erase sFiles
End Sub
Es sencilla pero funciona! y está recién hecha!
Saludos desde Baires, JuanC