VBA Excel for Macにて「ActiveX コンポーネントはオブジェクトを作成できません。」の解消の仕方がわかりません(MacScript関数の使い方)

前提・実現したいこと

Excel for Macにて連想配列のサンプルコードを実行しようとしたところ
「実行時エラー '429':
ActiveX コンポーネントはオブジェクトを作成できません。」
が表示され実行されません。調べる限りだとMacScript関数を使うと見たのですが、
どのように使用するのかよくわかりません。
原因がわかる方解答をお願いします。
ソースコードは下記サイトのものを使用しました。
サイトURL:http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_dictionary.html

発生している問題・エラーメッセージ

該当のソースコード

Sub rei21_3()
  Dim myDic As Object, myKey, myItem
  Dim myVal, myVal2, myVal3
  Dim i As Long
    Range("E2", Range("G" & Rows.Count).End(xlUp)).ClearContents
    Range("E1:G1").Value = Range("A1:C1").Value
    Set myDic = CreateObject("Scripting.Dictionary")
    ' ---元データを配列に格納
    myVal = Range("A2", Range("A" & Rows.Count).End(xlUp)).Resize(, 3).Value
    ' ---myDicへデータを格納
        For i = 1 To UBound(myVal, 1)
            myVal2 = myVal(i, 1) & "_" & myVal(i, 2)
            If Not myVal2 = "_" Then
                If Not myDic.exists(myVal2) Then
                    myDic.Add myVal2, myVal(i, 3)
                Else
                    myDic(myVal2) = myDic(myVal2) + myVal(i, 3)
                End If
            End If
        Next
    ' ---Key,Itemの書き出し
    myKey = myDic.keys
    myItem = myDic.items
        For i = 0 To UBound(myKey)
            myVal3 = Split(myKey(i), "_")
            Cells(i + 2, 5).Value = myVal3(0)
            Cells(i + 2, 6).Value = myVal3(1)
            Cells(i + 2, 7).Value = myItem(i)
        Next
    Set myDic = Nothing
    ' ---並べ替え
    Range("E1", Range("G" & Rows.Count).End(xlUp)).Sort _
        Key1:=Range("E2"), Order1:=xlAscending, _
        Key2:=Range("F2"), Order2:=xlAscending, _
        Header:=xlGuess
End Sub

エクセル画面

補足情報(言語/FW/ツール等のバージョンなど)

使用しているPC: iMac OS X 10.11.5
マイクロソフトOffice: Office365 Solo

Windowsにて実行した場合、問題ありませんでした