'~~> Checks if selection is a valid chart
Sub Sample()
On Error GoTo Err
If TypeName(Charts(Selection.Parent.Name)) = "Chart" Then _
Debug.Print "You have selected a Chart Sheet"
Err:
If TypeName(Selection) = "ChartArea" Then
Debug.Print "You have selected a Chart in a Sheet"
Else
Debug.Print "Invalid Selection"
End If
End Sub
Sid