i have a shape on a worksheet named "Oval 1"
i want to use the shape as a toggle button to change its color. a macro
runs when it is clicked:
If Range("A1") = False Then
ActiveSheet.Shapes("Oval 1").Fill.ForeColor.SchemeColor = 65
Range("A1") = True
Exit Sub
End If

If Range("A1") = True Then
ActiveSheet.Shapes("Oval 1").Fill.ForeColor.SchemeColor = 47
Range("A1") = False
Exit Sub
End If

the problem i am running into is that if you click the shape too fast, it
stays the same color, but eventually changes if you wait a second. is there
a better way to set it up like this so this problem doesn't happen?