Anzahl der Graphen in einem Diagramm

Wie kann man die Anzahl aller Graphen in einem Diagramm ermitteln ? 
Sub Anzahl_Graphen()
   ActiveSheet.ChartObjects("Diagramm 1").Activate
   Msgbox ActiveChart.SeriesCollection.Count
End Sub