REFRESH ALL PIVOT TABLE AUTOMATICALLY VBA

 REFRESH ALL PIVOT TABLE

Sub vba_referesh_all_pivots()

Dim pt As PivotTable

For Each pt In ActiveWorkbook.PivotTables

pt.RefreshTable

Next pt

End Sub

ACTIVE GET PIVOT TABLE

Sub activateGetPivotData()

Application.GenerateGetPivotData = True

End Sub

Sub deactivateGetPivotData()

Application.GenerateGetPivotData = False

End Sub