TypeName(Selection) returns "DrawingObjects" if more than one chart is
selected.

Sub test()
Dim ob As Object, s As String

If TypeName(Selection) = "DrawingObjects" Then
   For Each ob In Selection
       If TypeName(ob) = "ChartObject" Then
           cnt = cnt + 1
       End If
   Next
   s = cnt & " / " & Selection.Count & _
       " selected objects are ChartObjects"
Else
   s = TypeName(Selection)
End If

MsgBox s

End Sub

Strangely, when I first tested in Excel 97 if multiple chartobjects and only
chartobjects were selected TypeName(Selection) returned "ChartObject".  But
later in testing it returned "DrawingObjects" same as later versions. Odd!

Regards,
Peter T