エクセルファイルのA列、B列

A	B
aaa.pdf	A-001.pdf
bbb.pdf	A-002.pdf
ccc.pdf	A-003.pdf
ddd.pdf	A-004.pdf
eee.pdf	A-005.pdf

デスクトップのmyfolderというフォルダには以下のファイルがある想定

→　aaa.pdf, bbb.pdf, ccc.pdf, ddd.pdf, eee.pdf

Visual Basicに標準モジュールを追加して以下を入力し実行

Option Explicit
Sub renamex()
    '保存先
    Const MyFolder$ = "C:\Users\●●●\Desktop\myfolder\"
    Const A& = 1, B& = 2

    Dim con As Long
    con = Cells(Rows.Count, "A").End(xlUp).Row
    For i = 1 To con
        Name MyFolder & Cells(i, A).Value As MyFolder & Cells(i, B).Value
    Next i
End Sub

ThisWorkbook.Pathでパスを取得する場合

エクセルファイルと同階層に、リネーム対象ファイルがある想定

Sub renamex()
    '保存先
    MyFolder$ = ThisWorkbook.Path & "\"
    Const A& = 1, B& = 2 

    Dim con As Long
    con = Cells(Rows.Count, A).End(xlUp).Row
    Dim i As Long
    For i = 1 To con
      Name MyFolder & Cells(i, A).Value As MyFolder & Cells(i, B).Value
    Next i
End Sub