FileSearch Excel 2007

Sub finfo()
Dim FNR As String
Set fs = Application.FileSearch
FNR = Worksheets("Fonds").Range("D9")
With fs
.LookIn = "X:\Blatt"
.SearchSubFolders = True
.Filename = "" & FNR & "*.xls"
If .Execute > 0 Then
MsgBox "Es wurde " & .FoundFiles.Count & _
"Datei(n) gefunden."
For i = 1 To .FoundFiles.Count
'MsgBox .FoundFiles(i)
Workbooks.Open "" & .FoundFiles(i) & ""
ActiveWorkbook.RunAutoMacros xlAutoOpen
Next i
Else
MsgBox "Es wurden keine Dateien gefunden"
End If
End With
End Sub

Leider muss ich nun Excel2007 nutzen und dort gibt es die Funktion "Filesearch" nicht.
Wie muss ich die Zeile
Set fs = Application.FileSearch
abändern das es unter Excel2007 funktioniert? Danke für Eure Hilfe.
Gruss