In the work sheet module for the tab you are opening, put the following code and change the sheet name and pivot table name as indicated.
Private Sub Worksheet_Activate() Sheets("SheetNameWithPivot").PivotTables("PivotTableName").PivotCache.Refresh End Sub
One spreadsheet to rule them all. One spreadsheet to find them. One spreadsheet to bring them all and at corporate, bind them.
A picture is worth a thousand words, but a sample spreadsheet is more likely to be worked on.
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks