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
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.