Change colour of chart series with VBA

arr yes i should just do it right down to bare bones
would only need to do loops if multiple series/lines/data points per chart is required

Sub DropDown2_Change()

    Dim MyCol As Long
            
    MyCol = Worksheets("Control").Range("E10").Offset(, Worksheets("Control").Range("C8").Value).Interior.Color

    With ActiveSheet
        .Shapes("StorePerformanceChart").Chart.SeriesCollection(1).Format.Line.ForeColor.RGB = MyCol
        .Shapes("Bullet Graph").Chart.SeriesCollection(1).Format.Fill.ForeColor.RGB = MyCol
        .Shapes("Chart 7").Chart.SeriesCollection(1).Points(1).Format.Fill.ForeColor.RGB = MyCol
        .Shapes("Chart 11").Chart.SeriesCollection(1).Format.Fill.ForeColor.RGB = MyCol
        .Shapes("Chart 11").Chart.SeriesCollection(1).Format.Glow.Color.RGB = MyCol 'this is glow syntax
        
    End With
    
End Sub