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