Out of Stack Space

Private Sub ToggleButtonEnglish_Click()
    Call Clear
    ToggleButtonEnglish.Value = True
End Sub

Private Sub ToggleButtonMetric_Click()
    Call Clear
    ToggleButtonMetric.Value = True
End Sub

Sub Clear()
    ToggleButtonEnglish.Value = False
    ToggleButtonMetric.Value = False
End Sub

Why does this give me an Out of Stack Space error?

It's only being called when I click on that toggle button, so it shouldn't be looping through, should it?

Thanks.

Essentially I'm simply trying to make it so only one ToggleButton is active at one time. I've tried several things on my own (If/Else statements) along with other's online, but I've gotten nowhere. This is the most recent and doesn't do as it seems it should.

Changing the value of a togglebutton triggers its click event, so ...

Oh, I see. How can I avoid that then? There are two scenarios for each toggle button:

Private Sub ToggleButtonEnglish_Click()
    If ToggleButtonEnglish.Value = True Then
        ToggleButtonEnglish.Value = True
        ToggleButtonMetric.Value = False

    ElseIf ToggleButtonEnglish.Value = False Then
        ToggleButtonEnglish.Value = True
        ToggleButtonMetric.Value = False

    End If
End Sub

And Vice-Versa for Metric.

As you mentioned:

You need to create a module-level flag (e.g., bBusy). When a button is pushed, if the flag is set, exit. If the flag is not set, set the flag, proceed with the code, and clear the flag.

Dim bItsMe As Boolean

Private Sub ToggleButton1_Click()
    If bItsMe Then Exit Sub
    
    bItsMe = True
    ToggleButton2.Value = False
    ToggleButton1.Value = True
    bItsMe = False
End Sub

Private Sub ToggleButton2_Click()
    If bItsMe Then Exit Sub
    
    bItsMe = True
    ToggleButton1.Value = False
    ToggleButton2.Value = True
    bItsMe = False
End Sub

But in practice, I'd use an option button instead, which has by design 1-of-N behavior.

I gotcha.
The toggle button just seemed more intuitive (aesthetics-wise) in my case. Thanks for the help!