Sub Color_oval_a() 'ROGER2327
Dim i&, a%
With ActiveSheet
For i = 1 To 45
Select Case .[J1].Offset(i).Value
Case Is <= 1: a = 4
Case 3 To 17: a = 41
Case 25 To 50: a = 27
Case 51 To 80: a = 46
Case Is >= 81: a = 3
Case Else: a = 0
End Select
With .Shapes(i).Fill
.ForeColor.SchemeColor = a
.Visible = (a <> 0)
End With
Next
End With
End Sub