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
###エクセル画面