Excel VBAでPDFのプロパティを一度に書き換えたい

Excel VBAを用いて、エクセルファイルに記載されている通りにPDFファイルのプロパティ（タイトルと作成者）を書き換えたいと考えています。

エクセルファイルに記載のあるPDFファイルに該当するプロパティ（タイトルと作成者）を書き込むことを目的としています。
ひとまず、以下のようなコードを書いてみました。
ここに手を加えて１列目のファイル名のPDFファイルと同じ行のプロパティを入力する（test1.pdfの場合、「1日業務日報」と「佐藤」）作業を各行について行えるようにしたいのですが、どのように修正すればよろしいでしょうか。
（抜本的に修正する必要があればこのコードにこだわりません）

ChDrive ActiveWorkbook.Path
ChDir ActiveWorkbook.Path

myPath = ActiveWorkbook.Path & "\"
myFname = Dir(myPath & "*.pdf")

    Do While myFname <> ""
        
        Set qq = CreateObject("AcroExch.PDDoc")
            b = qq.Open(myPath & myFname)
            b = qq.SetInfo("Title", Range("B2"))
            b = qq.SetInfo("Author", Range("C2"))
            
            '... 33 = PDSaveFull (1) OR PDSaveCollectGarbage (32)
            b = qq.Save(33, myPath & myFname)
            b = qq.Close
                    
        myFname = Dir()
    Loop

MsgBox "終了しました"

End Sub