I want to create a chart with the color of the columns specified by a
value in a cell. All of the columns can be of the same color. I am
already using the code below to update the scale of the chart, using a
value in cell E35 in this case. Is there something I can add to this
to control the color or do I need to use a seperate piece of code?

Sub UpdateScale()
ActiveSheet.ChartObjects("Chart 4").Activate
With ActiveChart.Axes(xlValue)
..MinimumScale = 0
..MaximumScale = Range("e35").Value
End With
End Sub