The following code changes each line series from 2.25 point to .75 point. It should also change the color of each line to a dark green but it doesn't. The chart stays multicolored unless I run it a second time. Why does it not change the line thickness and color all at the same time? I don't want to have to call this module twice to get it to do the job.

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