Private Sub Chart_Activate()
msg = "Hello " & Application.userName & vbCrLf & vbCrLf
msg = msg & "You are now viewing the six-month sales "
msg = msg & "summary for Products 1-3." & vbCrLf & vbCrLf
msg = msg & "Click on items in the chart to find out what they are."
MsgBox msg, vbInformation, ActiveWorkbook.name
End Sub