Need to update Multiple PivotTables from same sorce

[Mike]

I inherit a XLS file that has multiple pivottables, and no underlying data. I
have to refresh each of these tables one at a time. (yuck) is there an option
I am missing? What VBA could I use to make this easier for me?

 

[Mike]

I took a stab at it, but I'm sure there is a more efficient way of doing this:

Sub Refresh_PivotTables()

' Select L2 Pivots Sheet and update
Sheets("L2 Pivots").Select
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
ActiveSheet.PivotTables("PivotTable2").PivotCache.Refresh
ActiveSheet.PivotTables("PivotTable3").PivotCache.Refresh
ActiveSheet.PivotTables("PivotTable4").PivotCache.Refresh
ActiveSheet.PivotTables("PivotTable5").PivotCache.Refresh
ActiveSheet.PivotTables("PivotTable6").PivotCache.Refresh

' Select Deskside Pivots shee and update
Sheets("Deskside Pivots").Select
ActiveSheet.PivotTables("PivotTable1").PivotCache.Refresh
ActiveSheet.PivotTables("PivotTable2").PivotCache.Refresh
ActiveSheet.PivotTables("PivotTable3").PivotCache.Refresh
ActiveSheet.PivotTables("PivotTable4").PivotCache.Refresh
ActiveSheet.PivotTables("PivotTable5").PivotCache.Refresh
ActiveSheet.PivotTables("PivotTable6").PivotCache.Refresh
ActiveSheet.PivotTables("PivotTable7").PivotCache.Refresh
ActiveSheet.PivotTables("PivotTable8").PivotCache.Refresh
ActiveSheet.PivotTables("PivotTable9").PivotCache.Refresh

End Sub

 

[Dave Peterson]

Maybe...

Option Explicit
Sub DoThemAll()
ThisWorkbook.RefreshAll
End Sub

 

[Mike]

Thanks... its my first day.

Maybe...

Option Explicit
Sub DoThemAll()
ThisWorkbook.RefreshAll
End Sub