I'd use:

Dim OLEObj As OLEObject
For Each OLEObj In Activesheet.OLEObjects
If TypeOf OLEObj.Object Is MSForms.OptionButton Then
msgbox OLEObj.Object.Value
End If
Next OLEObj

If you renamed any of your optionbuttons to avoid them in the loop, then my
suggestion won't work.

Snowfire wrote:

I can use this to get the option buttons name...

For Each ctl In ActiveSheet.Shapes
If Left(ctl.Name, 12) = "OptionButton" Then MsgBox ctl.Name
Next ctl

How can I modify it to get the selected or not value or status?

--

Dave Peterson