Mac版Excel VBAのファイル名リネーム処理について

Question

Mac版Excelで下記のコードを実行すると、Workbooks.OpenでPath & bufが開けるのに、Name Path & bufでは、「実行時エラー５３、ファイルが見つかりません」とエラーになります。
理由がわからないのですが、ご教示お願いします。

Dim bangou As String
Dim edaban As Integer
Dim Path As String, buf As String

Path = MacScript("return posix path of (choose folder with prompt ""Select the folder"") as string")

bangou = InputBox("請求書番号（日付）を入れてください。？", "確認", Format(Date, "yyyymmdd"))
edaban = InputBox("枝番の開始番号を入れてください。？", "確認", 1)

i = 0
buf = Dir(Path & "*.xlsx")
    Do While buf <> ""
        Workbooks.Open Path & buf
        Worksheets(1).Cells(1, 7) = bangou & "-" & Format(edaban + i, "00")
        Application.DisplayAlerts = False
        ActiveWorkbook.Close SaveChanges:=True
        
        FileName = Left(buf, 11)
        
        Name Path & buf As Replace(buf, FileName, bangou & "-" & Format(edaban + i, "00"))
        
        Application.DisplayAlerts = True
        buf = Dir()
i = i + 1
    Loop