Series Colored Differently - by groups

Hello All,

I have several series (lets say 10: Series1, Series2, ....Series10) and I just want make them in two groups colored differently. For example Series from 1 to 5 to be colored in RED and Series from 6 to 10 to be colored in BLACK.
I use "Scatter with smooth lines" for the graph.
I used a macro code (you can see it below), but it gave a option only to change to color of all series by changing RGB value.

Any help will be appreciated.
Best regards

Sub x()
    Dim objSeries As Series
    
    With ActiveChart
        For Each objSeries In .SeriesCollection
            With objSeries.Format.Line
                .Transparency = 0
                .Weight = 0.75
                .ForeColor.RGB = 0
            End With
        Next
    End With
End Sub

Originally Posted by Atanasi

For example Series from 1 to 5 to be colored in RED and Series from 6 to 10 to be colored in BLACK.

I would try this. For more detailed answers that have been tested please attach file.

Sub x()
    Dim objSeries As Series
    Dim i As Long
    
    With ActiveChart

        For i = 1 To 5
            With .SeriesCollection(i).Format.Line
                .Transparency = 0
                .Weight = 0.75
                .ForeColor.RGB = (255, 0, 0)
            End With
        Next i

        For i = 6 To 10
            With .SeriesCollection(i).Format.Line
                .Transparency = 0
                .Weight = 0.75
                .ForeColor.RGB = (0, 0, 0)
            End With
        Next i

    End With
End Sub