alle Pivottabellen in Datei aktualisieren

Sub Pivot()
' Pivot Makro
' Makro am 25.02.2009 von  mir aufgezeichnet
Sheets("Pivot1").Select
Range("A8").Select
ActiveSheet.PivotTables("PivotTable3").PivotCache.Refresh
Sheets("Pivot2").Select
Range("A7").Select
ActiveSheet.PivotTables("PivotTable4").PivotCache.Refresh
Range("F28").Select
Sheets("Pivot1").Select
End Sub

Wie muss ich das ändern wenn ich alle PivotTables aktualisieren will unabhängig wie sie heißen