ActiveChart.SeriesCollection.Count で グラフ系列の数

ActiveChart.SeriesCollection.Count で グラフ系列の数
ActiveChart.SeriesCollection.Count
よく見かける
.Count
でChartのSeries数がわかりそうです

Option Explicit

Sub bbb()

    Dim n As Integer
    
    Debug.Print "コレクションの数:" & ActiveChart.SeriesCollection.Count
    
    For n = 1 To ActiveChart.SeriesCollection.Count
        Debug.Print ".Name=" & ActiveChart.SeriesCollection(n).Name
    Next

End Sub

解決のヒントとなれば幸いです。