Sheets.Count (Excel)

Returns a Long value that represents the number of objects in the collection.

Dim lngCount As Long
lngCount = Charts.Count