With the following code 2007 will change the colours but won't change the
border lines
In fact it takes out all the border lines that were already there.
Anyone know a workaround?

ActiveChart.SeriesCollection(2).Select
With Selection.Border
.Weight = xlThin
.LineStyle = xlAutomatic
End With
Selection.Shadow = False
With Selection.Interior
.ColorIndex = 38
.Pattern = xlSolid