Error se requiere un objeto

Estimado Dam

Tengo esta macro que me arroja el siguiente error Application.findfile "se Requiere un Objeto" actualmente tengo Excel 2007 y no he podido hacerla funcionar, agradesco tu amabilidad

gracias

rbvp

Sub LISTARA()
Application.ScreenUpdating = False
SearchPath = Cells(5, 3)
Set fs = Application.FindFile
With fs
.LookIn = UserForm2.TextBox1.Value
.Filename = UserForm2.ComboBox1.Value
.SearchSubFolders = False
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 " & UserForm2.ComboBox1.Value
Estilo = vbOKOnly + vbExclamation
TITULO = "Listar & Organizar"
respuesta = MsgBox(mensaje, Estilo, TITULO)
End If
End With
Application.ScreenUpdating = True
End Sub