Datei umbenennen MAKRO funktioniert nicht

Hallo liebe Helfer,
ich habe nachstehendes Makro gefunden und den Pfad angepasst.
Public Sub Namen_aendern()
    Dim lngZeile As Long, lngIndex As Long, strPfad As String
    Dim myFSyObjekt As Object, myFiObjekt As Object
    strPfad = "C:/Umbenennen" 'hier bitte den Pfad anpassen
    Set myFSyObjekt = CreateObject("Scripting.FileSystemObject")
    For lngZeile = 2 To Cells(65536, 1).End(xlUp).Row
        Application.StatusBar = "Geändert wird Datei """ & CStr(Cells(lngZeile, 1)) & """ als " & CStr(lngZeile - 1) & ". von " & CStr(Cells(65536, 1).End(xlUp).Row - 1)
        With Application.FileSearch
            .LookIn = strPfad
            .Filename = Cells(lngZeile, 1)
            If .Execute = 1 Then
                Set myFiObjekt = myFSyObjekt(strPfad & "\" & .FoundFiles(1))
                myFiObjekt.Name = Cells(lngZeile, 2)
            Else
                Application.StatusBar = False
                MsgBox "Dateiname """ & CStr(Cells(lngZeile, 1)) & """  nicht oder mehrfach gefunden. Bitte prüfen.", 16, "Warnung"
                Exit Sub
            End If
        End With
    Next
    Application.StatusBar = False
    MsgBox "Fertig.", 64, "Information"
End Sub
Wenn ich das Makro laufen lasse, erhalte ich immer den Hinweis: Dateiname "1" nicht oder mehrfach gefunden Bitte prüfen.
Die Datei ist aber nur einmal vorhanden.
Ich möchte gerne folgendes erreichen. In meinem Ordner C:\Umbenennen befinden sich sehr viele pdf-Dokumente.
In Spalte A ab Zeile 2 steht der  Name des alten Dokumentes aber ohne Suffix. In Spalte B ab Zeile 2 steht der neue Name auch ohne Suffix.