ActiveSheet.Shapes("AutoShape 6").Select
Select Case Target.Value
Case 0 To 20
Selection.ShapeRange.Line.ForeColor.SchemeColor = 4
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 4
Case 21 To 40
Selection.ShapeRange.Line.ForeColor.SchemeColor = 3
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 3
Case 41 To 60
Selection.ShapeRange.Line.ForeColor.SchemeColor = 53
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 53
Case Is > 60
Selection.ShapeRange.Line.ForeColor.SchemeColor = 2
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 2
End Select