Advanced Excel Tips-Macros/VBA

Q : Refresh All Pivot Tables
Ans :
Sub RefreshAllPivots()
Dim pt As PivotTable
For Each pt In ActiveWorkbook.PivotTables pt.RefreshTable
Next pt
End Sub

Q : Resize All Charts in a Worksheet
Ans :
Sub Resize_Charts()
Dim i As Integer
For i = 1 To ActiveSheet.ChartObjects.Count With ActiveSheet.ChartObjects(i) Width = 300 Height = 200
End With
Next i
End Sub