determine which option (radio) button is active

[vbcandies]

Here is a function I made up (with tips from Hannesthegreat and Wof)..might come in handy....

'Determines & returns which option button in an array is presently active
'Returns -1 when none are active (such as at initialization)
'example:  text3.text=str(WhichOptionActive(optRadioButtonBank1))
'
Public Function WhichOptActive(CtrlArr As Variant) As Integer
Dim Cntrl As Control
WhichOptActive = -1  'default, if none active
For Each Cntrl In CtrlArr
  If Cntrl.Value = True Then       'look for active option button
   WhichOptActive = Cntrl.Index
   Exit Function  'if found, get out now
  End If
Next Cntrl
End Function

[dglienna]

None of us EVER post code without using CODE TAGS!!!

' Please learn how to use them, or don't post any more code.

That didn't really help anyone, so who will search for it? Add it to your other post instead