ActiveSheet.ChartObjects("ChartDens2").Activate
        ActiveChart.SeriesCollection.NewSeries

        ActiveChart.SeriesCollection(5).XValues = Worksheets("Interface").Range(myRange)
        ActiveChart.SeriesCollection(5).Values = Worksheets("Interface").Range(anotherRange)

        ActiveChart.SeriesCollection(5).MarkerStyle = -4142

        With ActiveChart.SeriesCollection(5).Format.Line
            .Visible = msoTrue
            .ForeColor.ObjectThemeColor = msoThemeColorText2 **''NOT WORKING LINE**
            .ForeColor.TintAndShade = 0
            .ForeColor.Brightness = 0.400000006
            .Transparency = 0
            .Weight = 1
        End With