Looping through a specific number of chart series

[Luin29]

A quick question for anyone that can help: How would I go about looping through a specific number of chart series?

I am interested in scaling the primary y-axis using the first 7 chart series (the 8th series is on the secondary axis).

Thanks

 

[VBA Geek]

Sub loopThrhoughSeries()
Dim sColl As Excel.SeriesCollection
Dim s     As Excel.Series

Set sColl = ActiveSheet.Shapes("[COLOR=#ff0000][B]Chart 1[/B][/COLOR]").Chart.SeriesCollection
For Each s In sColl
    MsgBox "The series " & s.Name & " is on the axis number " & s.AxisGroup
Next s
End Sub