Macro To Update Pivot Tables on Several Worksheets
On Aug 18, 1:41*pm, Gringarlow
wrote:
I have less than a little knowledge of Macros and VBA.
I know how to create a Macro that follows my Mouse clicks etc.......
Can someone show me a Macro to update several Pivot Tables on several
Worksheets in the same work book. The tables all use the same data. I'm using
Excel 2003 SP3
Thank, You too much
Gringarlow,
There is some sample code below for updating pivot tables through the
worksheets within the active workbook.
Best,
Matthew Herbert
Sub PivotTableRefresh()
Dim Wks As Worksheet
Dim pvtTable As PivotTable
'don't allow screen updating because it takes time
Application.ScreenUpdating = False
'loop through each worksheet
For Each Wks In ActiveWorkbook.Worksheets
'loop through each pivot table in the worksheet
For Each pvtTable In Wks.PivotTables
'refresh the pivot table
pvtTable.PivotCache.Refresh
Next pvtTable
Next Wks
'tell the user you are done with the refresh
MsgBox "The pivot tables have been updated."
End Sub
|