Sub Color_oval()
ActiveSheet.Shapes("Oval1").Fill.Visible = msoFalse
Select Case Range("L2")
Case Is <= 1
ActiveSheet.Shapes("Oval1").Fill.ForeColor.SchemeColor = 4
ActiveSheet.Shapes("Oval1").Fill.Visible = msoTrue
Case 3 To 17
ActiveSheet.Shapes("Oval1").Fill.ForeColor.SchemeColor = 41
ActiveSheet.Shapes("Oval1").Fill.Visible = msoTrue
Case 25 To 50
ActiveSheet.Shapes("Oval1").Fill.ForeColor.SchemeColor = 27
ActiveSheet.Shapes("Oval1").Fill.Visible = msoTrue
Case 51 To 80
ActiveSheet.Shapes("Oval1").Fill.ForeColor.SchemeColor = 46
ActiveSheet.Shapes("Oval1").Fill.Visible = msoTrue
Case Is >= 81
ActiveSheet.Shapes("Oval1").Fill.ForeColor.SchemeColor = 3
ActiveSheet.Shapes("Oval1").Fill.Visible = msoTrue
End Select
End Sub