You could store the result in a Named Constant (similar to a Named Range).
Private Sub OptionButton1_Click()
Application.Names.Add "ufGender", "Male", False
End Sub
Private Sub OptionButton2_Click()
Application.Names.Add "ufGender", "Female", False
End Sub
Private Sub UserForm_Initialize()
If Not IsError(Evaluate("ufGender")) Then
Select Case Evaluate("ufGender")
Case "Male": OptionButton1.Value = True
Case "Female": OptionButton2.Value = True
End Select
End If
End Sub
On a side note:
I think they are colloquially referred to as Radio buttons and not Radial because they mimic the radio station push buttons on old-style radios with mechanical tuners. The radio station preset buttons would be pushed in and stay pushed in until a different preset station button was pushed. I could be very wrong on this.
Bookmarks