comp1 = Sheets("Agent admin").Range("P27").Value
If comp1 < 0.5 Then
With ActiveSheet.Shapes("Ellipse 8").OLEFormat.Object
.Interior.ColorIndex = 3
End With
Else
With ActiveSheet.Shapes("Ellipse 8").OLEFormat.Object
.Interior.ColorIndex = 4
End With
End If