Excel - Ayudenme plss

Hola a todos porfis necesito su ayuda , como hago para poder llevar los nombres de unos archivos a una hoja en excel; por ejemplo estos archivos se encuentran dentro de C:\Imagenes; hay muchos archivos con una misma extensión .jpg ; se puede llevar sus nombres a una hoja en excel?? ayudenme plss

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