RUN Time error,Rename PDF files using Excel Macro

Dear All,

I am try to Rename Multiple PDF files with the Excel sheet Data.
Column A -Contains ,Original PDF File Name
Column B -Contains, to be Rename File Name
My Pdf files were in the folder path-E:\test

I took the Vb code from our fourm only.
But when try to run the macro, it shows "Run time Error '53': "File Not Found.

Please help to solve.

Thanks In Advance.

Sub Rename_All()

    Dim lastRow As Long, row As Long
    Dim path As String
    
    lastRow = Cells(Rows.Count, "A").End(xlUp).row
    For row = 1 To lastRow
        path = Left(Cells(row, "A").Value, InStrRev(Cells(row, "A").Value, "\"))
        Name Cells(row, "A").Value As path & Cells(row, "B").Value
    Next
    
End Sub

Maybe:

Sub Rename_All()

    Dim lastRow As Long, row As Long
    Dim path As String
    
    lastRow = Cells(Rows.Count, "A").End(xlUp).row
    For row = 1 To lastRow
        path = Left(Cells(row, "A").Value, InStrRev(Cells(row, "A").Value, "\"))
        Name path & Cells(row, "A").Value As path & Cells(row, "B").Value
    Next
    
End Sub

Your fpath is already imbedded into both of the strings in columns A:B, so you don't need to parse it out.

Sub Rename_All()
Dim LastRow As Long, Rw As Long

    LastRow = Cells(Rows.Count, "A").End(xlUp).row
    For Rw = 1 To LastRow
        Name Cells(Rw, "A").Value As Cells(Rw, "B").Value
    Next

End Sub

I have marked this thread solved for you.
In the future please select Thread Tools from the menu above and mark the thread as solved. Thanks.