How to iterate through optionButtons in excel Sheet

ex:

For Each oB In Sheet1.OptionButtons ????
   "do smth"
Next


thanx in advance

p.s.
result should be saved in next Sheet cell

regards

__________________
regards

Hi,
Try this code

Sub IterateObjects()
Dim ob As OLEObject

For Each ob In Sheet1.OLEObjects
    If ob.progID = "Forms.OptionButton.1" Then
        Debug.Print ob.Name
    End If
Next

End Sub

-vemaju

Hi vemaju thanx for post.

hmmm did u try to get caption property from objects?

regards

regards

Hi,

You can get Caption property by using ob.Object.Caption

-vemaju

thanx
it really works.

Just one more question. Why do u have 2 refer to object again in ob.OBJECT.caption
I thought ob.caption is enough? (though I see it in "Locals" when debugging... but please explain if u find some time)

I was doing:

For Each ob In Sheet1.Shapes
    Debug.Print ob.Caption

Next


thanx again for solving my problem vemaju


regards

Hi,

You have to refer to OleObjects Object property because the OLEObject has no Caption property itself

-vemaju