一个控件按钮，刷新整个文件的数据透视表和公式

jk0713

各位老师：
需要做一个控件按钮，点击后，文件中的所有的公式和数据透视表都自动刷新。
写的代码如下，不同工作表的数据透视表可做到刷新。但只有按所在工作表内的公式实现刷新计算，其他工作表单公式没有自动重算。注: 公式需要设定成手动模式的。另外，只用用一个控件按钮实现。
麻烦各位老师看看，如何修改才能做到所有工作表内的公式自动重算。
Private Sub CommandButton1_Click()
Dim PT As PivotTable
Dim WS As Worksheet
For Each WS In ThisWorkbook.Worksheets
For Each PT In WS.PivotTables
          PT.RefreshTable
        Next PT
Next WS
Calculate
End Sub

taller