フォルダ内のPDFページ数とファイル名を抽出について

実現したいこと

MACでフォルダ内のPDF総数とファイル名をエクセルに転記したい（VBA使用）　

発生している問題・分からないこと

ChatGPTを使って下記のコードでマクロを登録したのですがエラーが出て動かないです。

該当のソースコード

Sub ListPDFFiles() Dim folderPath As String Dim pdfCount As Long Dim fileNames As Variant Dim i As Long ' フォルダのパスを指定 folderPath = "/Users/ 〇〇〇〇/Desktop/テスト" ' ここにPDFファイルが保存されているフォルダのパスを入力してください ' フォルダパスの確認 If Right(folderPath, 1) <> "/" Then folderPath = folderPath & "/" End If ' AppleScriptでフォルダ内のPDFファイル名を取得 fileNames = Split(MacScript("tell application ""Finder"" " & _ "set theFolder to POSIX file """ & folderPath & """ as alias " & _ "set pdfFiles to every file of theFolder whose name extension is ""pdf"" " & _ "set pdfNames to name of every file of pdfFiles " & _ "return pdfNames as string " & _ "end tell"), ", ") ' PDFファイル数を取得 pdfCount = UBound(fileNames) + 1 ' 結果をエクセルシートに書き込む ThisWorkbook.Sheets(1).Cells(1, 1).Value = "PDF File Name" ThisWorkbook.Sheets(1).Cells(1, 2).Value = "Index" For i = LBound(fileNames) To UBound(fileNames) ThisWorkbook.Sheets(1).Cells(i + 2, 1).Value = fileNames(i) ThisWorkbook.Sheets(1).Cells(i + 2, 2).Value = i + 1 Next i ' 総PDFファイル数をエクセルシートに書き込む ThisWorkbook.Sheets(1).Cells(i + 3, 1).Value = "Total PDF Count" ThisWorkbook.Sheets(1).Cells(i + 3, 2).Value = pdfCount End Sub

試したこと・調べたこと

上記の詳細・結果

よくわかりませんでした。。

補足

ここの部分でエラー起こしているようです

' AppleScriptでフォルダ内のPDFファイル名を取得
fileNames = Split(MacScript("tell application ""Finder"" " & _
"set theFolder to POSIX file """ & folderPath & """ as alias " & _
"set pdfFiles to every file of theFolder whose name extension is ""pdf"" " & _
"set pdfNames to name of every file of pdfFiles " & _
"return pdfNames as string " & _
"end tell"), ", ")

どなたかお詳しいからご教示いただけたらと思います。
よろしくお願いいたします。