Finding selected optionbutton on a userform

[Bob Phillips]

This identifies the name of each selected button

Dim Ctl As Control
For Each Ctl In Me.Controls
    If TypeName(Ctl) = "OptionButton" Then
        If Ctl.Value Then
            MsgBox Ctl.Name
        End If
    End If
Next Ctl