AutoRefresh Pivot on Tab Selection

[happyhungarian]

Hi, I'd like a code that would refresh a PivotTable only when a new tab is selected/activated. Not when values on a tab are changed but only when the user moves/selects a different tab.

Thanks!

Jesse

 

[mrshl9898]

Hi,

Try adding this to the sheets you need it for:

[COLOR=#333333]Private Sub Worksheet_Activate()
[/COLOR]
    Dim ws As Worksheet
    Dim pvt As PivotTable
    Set ws = ActiveSheet
    For Each pvt In ws.PivotTables
        pvt.RefreshTable
    Next pvt

[COLOR=#333333]End Sub[/COLOR]

 

[Fazza]

In the VBE, insert in the "ThisWorkbook" code module,

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Me.RefreshAll
End Sub