Help getting VBA to display a message

S

steveski

I would like the following code to display a message to the user if the
click on the chart when no “End Flag” entries are FALSE. (I assume thi
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
 
Top