Refresh All Pivot Tables
A super quick method
to refresh all pivot tables. Just
run this code and all of your pivot tables in your workbook will be refresh in
a single shot.
Sub RefreshAllPivotTables()
Dim ws As Worksheet
Dim pt As PivotTable
For Each ws In ThisWorkbook.Worksheets
For Each pt In ws.PivotTables
pt.RefreshTable
Next pt
Next ws
End Sub
No comments:
Post a Comment