Marston,

If all of your optionbuttons are in a frame (Frame1 assumed below) then I
think this would work:

Dim ctl As Control
Dim optbutton As msforms.OptionButton

For Each ctl In UserForm.Frame1.Controls
If TypeOf ctl Is msforms.OptionButton Then
Set optbutton = ctl
If optbutton.Value = True Then
b = Mid$(optbutton.Caption, 13) - 1
End If
End If
Next ctl

hth,

Doug Glancy

" wrote in message
...
Hi -

I'm trying to clean up some code related to OptionButtons on a
UserForm. Depending on what button someone selects, a variable that is
used elsewhere in the code gets set.

Here's my inefficient code:

If UserForm.OptionButton1.Value = True Then
b = 0
End If
.
.
. and so on until
If UserForm.OptionButton12.Value = True Then
b = 11
End If

I suspect there is some way to do this with Select Case, but I haven't
been able to get it to work yet...

Thanks in advance