Sub Ellipse1_Clic()
Application.ScreenUpdating = False
If Range("B6").Value = "" Then
Range("B6").FormulaR1C1 = "=MAX(R[-5]C:R[-5]C[65])"
ActiveSheet.Shapes.Range(Array("Ellipse 1")).Select
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 192, 0)
Range("B6").Select
Else
Range("B6").Value = ""
ActiveSheet.Shapes.Range(Array("Ellipse 1")).Select
Selection.ShapeRange.Fill.ForeColor.RGB = RGB(146, 208, 80)
Range("B6").Select
End If
Application.ScreenUpdating = True
End Sub