Private Sub Worksheet_Calculate()
Dim Coul()
Coul = Array(RGB(0, 102, 0), RGB(255, 192, 0), RGB(255, 0, 0))
ActiveSheet.Shapes.Range(Array("Wave 3")).Select
With Selection.ShapeRange.Fill
.ForeColor.RGB = Coul([H14] - 1)
End With
ActiveSheet.Shapes.Range(Array("Wave 5")).Select
With Selection.ShapeRange.Fill
.ForeColor.RGB = Coul([J14] - 1)
End With
ActiveSheet.Shapes.Range(Array("Wave 7")).Select
With Selection.ShapeRange.Fill
.ForeColor.RGB = Coul([D14] - 1)
End With
ActiveSheet.Shapes.Range(Array("Wave 8")).Select
With Selection.ShapeRange.Fill
.ForeColor.RGB = Coul([F14] - 1)
End With
ActiveSheet.Shapes.Range(Array("Wave 11")).Select
With Selection.ShapeRange.Fill
.ForeColor.RGB = Coul([B14] - 1)
End With
[N17].Font.color = Coul([H14] - 1)
[S17].Font.color = Coul([J14] - 1)
[N31].Font.color = Coul([D14] - 1)
[S31].Font.color = Coul([F14] - 1)
[O43].Font.color = Coul([B14] - 1)
[A3].Select
End Sub