お世話になります。
フォルダ内のPDFファイルの名前を一度に変更したく以下のマクロを組みましたが、エラー53の「ファイルが見つかりません」が出てしまいます。
マクロ実行ボタンを置いたアクティブシートの1行目はタイトル行で2行目から10行目のA列に現在のシート名、B列に変換後のシート名を入力しています。
どこの記述がおかしいのでしょうか？
ご教示頂きたく宜しくお願い致します。

Sub Sample()
    Dim myPath As String
    Dim myPDF As String
    
    myPath = ThisWorkbook.Path & "\"
    myPDF = Dir(myPath & "*.pdf")
    
     
        
    For i = 2 To 10
    
    Do Until myPDF = ""
        
        Name myPath & ActiveSheet.Cells(i, 1).Value & ".pdf" As myPath & ActiveSheet.Cells(i, 2).Value & ".pdf"

        
        myBook = Dir
    Loop
   Next i
    
End Sub

そもそも
>myPDF = Dir(myPath & "*.pdf")
    
>Do Until myPDF = ""

>myBook = Dir
>Loop
これは何のために入れているのだろうか？
試しに無くすとどうなるだろうか？

もっとも
>myBook = Dir
は
>myPDF = Dir
ではないかと思うが。

ご確認いただきありがとうございます。
失礼しました。
>myBook = Dir
は
>myPDF = Dir
でした。

Do〜Loopを入れているのはそのフォルダ内のファイル全てにおいて処理をするという意味だったのですが、おっしゃる通りFor Nextでファイル内の全てのパスを置き換えるので必要ないですね。
そこでDo〜Loopを削除してみたのですがやはりファイルが見つかりませんとエラーが出てしまいます。以下に修正したのですがどこがダメなのでしょうか？
再びご教示お願いいたします。

Sub Sample()
    Dim myPath As String
        
    myPath = ThisWorkbook.Path & "\"
   
             
    For i = 2 To 10
                
        Name myPath & ActiveSheet.Cells(i, 1).Value & ".pdf" As myPath & ActiveSheet.Cells(i, 2).Value & ".pdf"

              
   Next i
    
End Sub

ねむねむ様

大変失礼しました！
２回目のデバッグの原因はA列のファイル名に拡張子を付けていたことでした。
Do〜Loopを削除したら動きました。
大変にありがとうございました。