Triggering worksheets events with changes in pivots

[Woodlander]

A change in a pivot cell (here: B1) does not work with the code below. Any ideas?

Private Sub Worksheet_Change(ByVal Target as Range)

If Target.Address = "$B$1" Then

MsgBox "Re-populate tables and print"
​

End If
​

End Sub
​

 

[Woodlander]

Andrew, thanks so much for your help.

For some anomalous reason, events were disabled, and I had to restart Excel to turn things back to normal.

Your solution worked right from the start.