Select Event Example

This example displays a message box if the user selects the chart title.

Private Sub Chart_Select(ByVal ElementID As Long, _
        ByVal Arg1 As Long, ByVal Arg2 As Long)
    If ElementId = xlChartTitle Then
        MsgBox "please don't change the chart title"
    End If
End Sub