'This code should be replicated in each worksheet containing pivot tables
Private Sub Worksheet_Activate()
    Dim thisWorksheet As Worksheet
    Dim thisPivot As PivotTable
    
    Set thisWorksheet = ActiveSheet
    For Each thisPivot In thisWorksheet.PivotTables
        thisPivot.RefreshTable
        
    Next thisPivot
    
End Sub