Private Sub Worksheet_Change(ByVal R As Range)
If Intersect(R, Range("A1:A2", "C2")) Is Nothing Then Exit Sub
ActiveSheet.Shapes.Range(Array("Wave 1")).Select
With Selection.ShapeRange.Fill
.ForeColor.RGB = Array(RGB(0, 102, 0), RGB(255, 192, 0), RGB(255, 0, 0))([C2] - 1)
End With
[A1].Select
End Sub