Chart_Deactivate procedure also displays a message only when the chart sheet is deactivated:
Private Sub Chart_Deactivate() msg = "Thanks for viewing the chart." MsgBox msg, , ActiveWorkbook.Name End Sub