I AM TRYING TO INSERT A LINE AND MAKE IT RED BUT IT ISN'T WORKING

Sheet40.Shapes.AddLine(MYCELL.Left + Centerstart, MYCELL.Top + HEIGHT,
MYCELL.Left + Centerstart, MYCELL.Top).Select

With Selection
.Fill.ForeColor.RGB = RGB(10, 10, 10)
.NAME = "HEIGHT1"
End With