Hi,
I am using the following code
Sub WhichOption() For Each objX In ActiveSheet.OLEObjects
If objX.Enabled = True And objX.Visible = True And TypeName(objX.Object) = "OptionButton" Then
If objX.Control.Value = True Then
MsgBox "Name = " & objX.Name & "...