Pole value of Option buttons

[Snowfire]

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]

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]

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....