Sub NoNo()
Dim i&, a%
With ActiveSheet
For i = 1 To 46
Select Case Sheet1.[L1].Offset(i + 1).Value
Case Is <= 1: a = 3
Case 2 To 30: a = 30
Case 31 To 60: a = 5
Case 61 To 90: a = 53
Case Is > 90: a = 2
End Select
With .Shapes(i).Fill
.ForeColor.SchemeColor = a
.Visible = (a <> 0)
End With
Next
End With
End Sub