Macro que lista desde un directorio excel 2003 a 2010

Hola

Tengo una macro que funcionaba bien en excel 2003, pero en excel 2010 no funciona

este es el código

Sub LISTAR()
'Lista archivo seleccionados
Call BORRAR
SearchPath = Cells(5, 3)
Dim fs
Set fs = Application.FileSearch (esta aplicación no funciona en excel 2010)

¿se puede reemplazar y dejar esta rutina operativa?
With fs
.LookIn = SearchPath
.Filename = Cells(4, 3)
.SearchSubFolders = True
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
Cells(i + 2, 5) = .FoundFiles(i)
Cells(i + 2, 6) = i
Cells(i + 2, 8) = .Filename
Next i
Else
Mensaje = "No existen archivos con la extensión " & Cells(4, 3)
Estilo = vbOKOnly + vbExclamation
TITULO = "P.C.O."
respuesta = MsgBox(Mensaje, Estilo, TITULO)
End If
End With
En