Sheets.Count (Excel)

Retorna um valor Long que representa o número de objetos na coleção.

Dim lngCount As Long
lngCount = Charts.Count