Array of OptionButtons ?

[MWE]

I have an application with a userform that uses optionbuttons. Th
number of optionbuttons is dynamically defined by the application. Th
buttons are presently "optionbutton1", "optionbutton2", etc (i.e., th
default names). Is there a way to manipulate the option buttons as a
array, i.e., something like optionbutton(i) ? I have tried somethin
like

Dim opButton as OptionButton

I = 0
For each opButton in frmSelectPro

 

[Tom Ogilvy]

Dim obtn as MSForms.OptionButton
for each ctrl in userform1.controls
if typeof ctrl is MSForms.OptionButton then
set obtn = ctrl
msgbox obtn.Name
end if
Next

 

[Guest]

Use this: assumes you are using default optionbutton names
Private Sub GetOpts(
Dim c As Contro
For Each c In Control
If c.Name Like "optionbutton*" the
. ..Your code her
End i
Nex
End Su
----- MWE > wrote: ----

I have an application with a userform that uses optionbuttons. Th
number of optionbuttons is dynamically defined by the application. Th
buttons are presently "optionbutton1", "optionbutton2", etc (i.e., th
default names). Is there a way to manipulate the option buttons as a
array, i.e., something like optionbutton(i) ? I have tried somethin
lik

Dim opButton as OptionButto

I =
For each opButton in frmSelectPro

 

[MWE]

Dim obtn as MSForms.OptionButton
for each ctrl in userform1.controls
if typeof ctrl is MSForms.OptionButton then
set obtn = ctrl
msgbox obtn.Name
end if
Next

Tom: thanks, this works.

MW