Finding selected optionbutton on a userform

[m_chauhan77]

Yes I did, though made a little change to customize it for my need, it works great for me. Thanks Dude.
Here it is

Dim Ctl As Control
For Each Ctl In Me.Controls
    If TypeName(Ctl) = "OptionButton" Then
        If Ctl.Value = True Then ' this gives me what I was looking for
            'MsgBox Ctl.Caption
            answer(m) = Ctl.Caption
            m = m + 1
        End If
    End If
Next Ctl