OptionButtons collection not recognized

[Corni]

I have a user form in Excel XP with two frames and two groups of option buttons, 17 in the first frame and two in the second frame. To better handle the two groups I assigned the GroupName property for the two groups as well. When I am trying to run this code:

For Each opt In UserForm1.OptionButtons
'do something
Next opt

I get following message 'Method or data member not found' (OptionButtons is highlighted). Any idea what goes wrong?

 

[TommyGun]

That is because there is not an OptionButtons collection for a UserForm.

You must access the Controls collection to do what you are looking for.

<font face=Courier New>    <SPAN style="color:#00007F">Dim</SPAN> ctr <SPAN style="color:#00007F">As</SPAN> Control
    
    <SPAN style="color:#00007F">For</SPAN> <SPAN style="color:#00007F">Each</SPAN> ctr <SPAN style="color:#00007F">In</SPAN> Me.Controls
        <SPAN style="color:#00007F">If</SPAN> TypeName(ctr) = "OptionButton" <SPAN style="color:#00007F">Then</SPAN>
            <SPAN style="color:#007F00">'do some code here</SPAN>
        <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
    <SPAN style="color:#00007F">Next</SPAN></FONT>

 

[Marc]

Perhaps you could modify your code as shown within:

Private Sub CommandButton1_Click()
XX = UserForm1.Frame1.Controls.Count
For Each Opt In UserForm1.Frame1.Controls

MsgBox XX
XX = XX - 1

Next Opt

End Sub