I would like my pivot table to refresh itself just by clicking on the tab

[PETRODATAjames]

I have a workbook with 5 worksheets

1.) Instructions
2.) Instructor Pay Data
3.) Instructor Summary - this is where the two pivot tables reside
4.) Instructor and Location Payrate
5.) Master Pay Rates

Can I have a VBA, that will automatically refresh the Pivot Table, just by clicking on that tab to open the worksheet? This is the worksheet code already on this sheet, just in case you need to know.

Private Sub Worksheet_Activate()
Application.Goto [A1], True

Me.UsedRange.Columns.AutoFit
End Sub


Thanks,
James E.

 

[FormR]

Hi, you can try adjusting you Worksheet_Activate() to this:

Private Sub Worksheet_Activate()
Dim PT As PivotTable
For Each PT In Me.PivotTables
    PT.PivotCache.Refresh
Next PT
Application.Goto [A1], True
Me.UsedRange.Columns.AutoFit
End Sub

 

[PETRODATAjames]

PERFECTE!

Thanks for your help!