Application Filesearch funktioniert nich

Sub suchen()
Dim Dateiname As String
Dim Suchbegriff As String
Dim Pfad As String
Pfad = "Pfad"
Dim x, y As Integer
Dim objFS As FileSearch
Set objFS = Application.FileSearch
y = ActiveWorkbook.Sheets("Tabelle1").Cells(Rows.Count, 2).End(xlUp).Row
For x = 2 To y
Suchbegriff = ActiveWorkbook.Sheets("Tabelle1").Cells(x, 2).Value
Dateiname = Pfad & "\" & Suchbegriff
With objFS
.NewSearch
.Filename = Suchbegriff
.LookIn = Pfad
.SearchSubFolders = True
If .Execute > 0 Then
ActiveWorkbook.Sheets("Tabelle1").Cells(x, 3).Value = .FoundFiles(1)
End If
End With
Next
End Sub