Sub chartColor()
i = 1
ActiveSheet.ChartObjects(2).Activate
With ActiveChart.SeriesCollection(1)
For Each CEL In Range("aa21:af21")
Select Case CEL.Value
Case Is < 0.9
.Points(i).Interior.ColorIndex = 4
Case 0.9 To 1.05
.Points(i).Interior.ColorIndex = 27
Case Is > 1.05
.Points(i).Interior.ColorIndex = 3
End Select
i = i + 1
Next
End With
End Sub