Check if Optionbutton in group is selected

[sharky12345]

If I have a number of Optionbuttons in a group on a userform is there a way I can efficiently check if one has been selected?

I need an error message if none are....

 

[Rick Rothstein]

If I have a number of Optionbuttons in a group on a userform is there a way I can efficiently check if one has been selected?

I need an error message if none are....

You didn't say what should happen after the error message is display so I assumed the subroutine should be exited (after any clean-up code is executed)... remove the Exit Sub if you don't want to exit the subroutine at that point. Try code structured like this (change the example GroupName of Rick that I used to your actual GroupName)...

[table="width: 500"]
[tr]
	[td]  Dim Cntrl As Control
  For Each Cntrl In Controls
    If TypeOf Cntrl Is MSForms.OptionButton Then
      If Cntrl.GroupName = "[B][COLOR="#FF0000"]Rick[/COLOR][/B]" And Cntrl.Value Then GoTo OptionButtonSet
    End If
  Next
  MsgBox "No OptionButton selected!", vbCritical
[COLOR="#008000"][B]  '
  '  Any clean-up code goes here
  '
[/B][/COLOR]  [COLOR="#0000FF"]Exit Sub[/COLOR]
OptionButtonSet:
[B][COLOR="#008000"]  '
  ' Code for when one OptionButton is set within the Group
  '
[/COLOR][/B][/td]
[/tr]
[/table]

 

[sharky12345]

Thanks Rick - your assumption is correct!