Optionbutton Group test
 

Private Sub Commandbutton1_Click()
Dim x As Control
For Each x In Me.Controls
If TypeName(x) = "OptionButton" Then If x.Value = True Then GoTo OK
Next
MsgBox "none"
Exit Sub
OK:
MsgBox "good"
End Sub


"Patrick C. Simonds" wrote in message
...
I have 7 OptionButtons on my UserForm. They are all have the same GoupName,
which is Status. Is there any way to test the Group to ensure at least 1
option is selected.

What I am looking for is a msgbox to popup saying "You must select at
least 1 option prior to continuing"

I know I can use an If Statement to check each OptionButton but thought it
would be cleaner if I could just check the Group.