Selected Pivot Table updates based on Calculated Cell

[Cantonalives]

Hi all,
Pretty certain this is a fairly simple one kicking my backside!

Basically if a cell changes I want named pivot tables to refresh. I thought I had it working as the refresh triggered, but sadly got caught in a refresh loop.

This is what I used :

On the sheet that changes:

Private Sub Worksheet_Calculate()

If Range("A58").Value <> PrevVal Then

PT_REFRESH

End If

End Sub

In module:

Public PrevVal As Variant


Sub PT_REFRESH()

Worksheets("1").PivotTables("PT_refresh1").RefreshTable

End Sub

Any help on this issue much appreciated..

Thanks,


-CL.

 

[p45cal]

You probably need, in the Worksheet_Calculate sub:
application.enableevents=false
before the line:
PT_REFRESH
and
application.enableevents=true
after that line.

 

[Cantonalives]

Worked a charm! Thank you....



-CL