Workbook (çalışma kitabı) içindeki tüm pivot tabloları refresh yani tazelemek için aşağıdaki macro kodunu kullanabilirsiniz.

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