Public Sub Main_Proc()

     MyPath = GetFilePathForMac("Excelを選んでください", " {""xls"", ""xlsx""}")
    ActiveSheet.Range("C9").Value = MyPath

End Sub

Rem Mac用にファイルパスを取得する（1つのファイル)
Private Function GetFilePathForMac(mypronpt As String, myfiletype As String) As String
    Dim MyPath As String
    Dim MyScript As String
    Dim MyFiles As String
    Dim Fname As String
    
    On Error Resume Next
    'ローカルファイルのパスをデフォルトのパスとする
    MyPath = MacScript("return (path to documents folder) as String")
  
    'AppleScriptを設定する。
    MyScript = _
    "set applescript's text item delimiters to "","" " & vbNewLine & _
               "set theFiles to (choose file of type " & _
             myfiletype & _
               "with prompt """ & mypronpt & """ default location alias """ & _
               MyPath & """) as string" & vbNewLine & _
               "set applescript's text item delimiters to """" " & vbNewLine & _
               "return theFiles"

    
    'AppleScriptを使用してファイルのパスを取得する。Finderが立ち上がります。
    MyFiles = MacScript(MyScript)
    
    'エラーが起きたらスルーします。
    On Error GoTo 0

    'ファイルのパスが取得できたら以下を処理する。
    If MyFiles <> "" Then
        GetFilePathForMac = MyFiles
       Else
        MsgBox "ファイルが取得できませんでした"
        GetFilePathForMac = ""
    End If

End Function