Help getting VBA to display a message

[steveski]

I would like the following code to display a message to the user if they click on the chart when no “End Flag” entries are FALSE. (I assume this would be keyed to the "On Error" statement?)

Private Sub Chart_Activate()
Sheets("AgingPT").PivotTables("PivotTable3").PivotCache.Refresh
On Error Resume Next
Sheets("AgingPT").PivotTables("PivotTable3"). _
PivotFields("End Flag").CurrentPage = "FALSE"
End Sub

Can you help?

 

[Andrew Poulsom]

Try (as the last line):

If Err <> 0 Then MsgBox "Your message"

 

[steveski]

Perfect! Thank you!