VBA＆＃39; Scripting.Dictionary＆＃39;在MAC上

Question

我在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上工作？