MAC上的VBA'Scripting.Dictionary'

我在VBA电子表格上有以下代码（在PC上完美）：

With CreateObject("Scripting.Dictionary") For Each rCell In ws.Range("meals", ws.Cells(Rows.Count, "B").End(xlUp)) If Not .Exists(rCell.value) Then .Add rCell.value, Nothing End If Next rCell cbMeal.List = .Keys End With 

有没有办法让它在MAC上工作？