Pole value of Option buttons
 

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?

Pole value of Option buttons
 

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

Pole value of Option buttons
 

On 30 Jan, 20:33, Dave Peterson wrote:
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.

Dave Peterson

Works a treat !!!! Thanks Dave....