在Mac上刷新数据透视表

Question

我在Excel for Windows中有一个工作的VBA宏，该宏附加到一个按钮上，以重新计算和刷新所有数据透视表。

我已与使用Mac的客户端共享了此内容，但它不起作用。我无法测试哪个元素不起作用，但怀疑它是数据透视表刷新。

这里是否需要将Windows转换为Mac？

数据透视表的所有源数据都链接到“数据”表。

'## Define current worksheet
Dim wkst As Worksheet
Set wkst = ActiveSheet

'## recalculate all formulas ##
Calculate 

'## select data sheet, find the whole range and name it PIVOT_RANGE ##     
Sheets("Data").Select
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Name = "PIVOT_RANGE"

'## Refresh all pivot tables in the workbook ## 
ActiveWorkbook.RefreshAll

'## select original worksheet
wkst.Select