Function für Datei-Suche benötigt

Option Explicit
Sub FindIt()
ThisWorkbook.Activate
Tabelle1.Select
Dim Z As Integer, SuchFilter As String, DateiName As String
Const Ort1 = "S:\"
Const Ort2 = "P:\"
For Z = 2 To 5000
SuchFilter = Cells(Z, 2) & " - " & Cells(Z, 3)
Debug.Print "Suche nach: " & Suche
DateiName = DateiSuche(SuchFilter, SuchOrt1)
If DateiName = "" Then DateiName = DateiSuche(SuchFilter, SuchOrt2)
Debug.Print "Gefunden hier: " & DateiName
Next Z
End Sub
Function DateiSuche(ByVal Gesucht As String, ByVal WoSuchen As String) As String
DateiSuche = ""
' ... ... ... Diesen Mittelteil hatte ich bisher mit Application.FileSearch und
'             dies geht jetzt ja seit Office2007 und Office2010 nicht mehr
' "DateiSuche" enthält dann den kpl. Dateinamen inklusive Pfad (wenn gefunden)
End Function