Alteration to VBA code for Pivot Table Refresh

[lemondifficult]

Hi,

Im trying to use the following VBA code to auto-refresh some pivot tables:

Private Sub Worksheet_Activate()
Dim pt As PivotTable
For Each pt In Me.PivotTables
pt.RefreshTable
Next pt
End Sub

However, i want the code to be amended so that the pivot tables on the worksheet "Pivots", auto-refresh when the worksheet "At a glance" is activated.

Does anyone know if this is possible and how the code would need to be amended in order to do it?

Any responses are greatly appreciated.

Thanks in advance,
Mikey

 

[JackDanIce]

For the worksheet_activate code in sheet "At a glance" try:

Private Sub Worksheet_Activate()
Dim pt as PivotTable
For Each pt in Sheets("Pivots").PivotTables
  pt.RefreshTable
Next

 

[lemondifficult]

Thanks JackDanIce,

that was almost it, just needed to amend it slightly at the end to the following:

Private Sub Worksheet_Activate()
Dim pt as PivotTable
For Each pt in Sheets("Pivots").PivotTables
pt.RefreshTable
Next pt
End Sub

 

[JackDanIce]

So long it's resolved, I'll take typo's gladly, thank you