Single OptionButton..

[cstimart]

I have a single option button that I want to change to true/false when clicked and the following code doesn't work (and I see why)

Private Sub OptionButton1_Click()
    With Haze
        If .OptionButton1.Value = True Then
            .OptionButton1.Value = False
        ElseIf .OptionButton1.Value = False Then
            .OptionButton1.Value = True
        End If
    End With
End Sub

How do I need to change this to function right?

 

[rguy84]

Option buttons are meant to be grouped with 2+, you need to use checkboxes.