VBA Code to Refresh All Pivot Tables in the Workbook

Open Excel Sheet

Press Alt + F11 Key 

Go to the Insert Menu and Click on new Module

in New Module copy and paste the above VBA code and save.

Now Press Alt + F8  and new windows will open which is shown in below figure,

in that windows you will ask to enter a key to create shortcut for Paste Special

Enter a letter in the box. 




Sub RefreshAllPivotTables()
Dim PT As PivotTable
For Each PT In ActiveSheet.PivotTables
PT.RefreshTable
Next PT
End Sub