I need to make a Pivot Table Refresh after a change in a specific cell range
on and active worksheet?

This should be close. It needs to be pasted into the sheet. Right click the
tab you want to catch the change in, select View Code and paste the
following...

(It looks at the Range A2:C100 waiting for a change)

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("A2:C100")) Is Nothing Then
Sheets("Sheet2").PivotTables(1).RefreshTable
End If
End Sub
--
HTH...

Jim Thomlinson


"David J" wrote:

I need to make a Pivot Table Refresh after a change in a specific cell range
on and active worksheet?