I have created a column chart and am now trying to change the colour of one
of the bars. Here is the code I am using:

With chtChart
ActiveChart.SeriesCollection(1).Points(2).Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
End With

But to an avail. can anyone see what is wrong with it?