Name OptionButtons from Sheet

[RobC]

Need some help... I have a form with 20 OptionButtons and want to update
the Captions during initialization from a list on a worksheet. Simple
concatenating "OptionButton & x" does not seem to work to step through a
list. Thanks in advance. RobC

 

[Dave Peterson]

I'm not sure how you associate the captions with the list, but maybe this'll
help:

Option Explicit
Sub testme()
Dim iCtr As Long
For iCtr = 1 To 20
Worksheets("sheet1").OLEObjects("Optionbutton" & iCtr).Object.Caption _
= "Hi There " & iCtr
Next iCtr
End Sub

 

[RobC]

Dave,

Thanks that works great for OptionButtons on a Worksheet but mine are on a
Form. I can't seem to get the - "Optionbutton" & iCtr - to work on a Form.
The Cancatenate of the "OptionButton" & x just doesn't work. I tried to
replace the Worksheets("Sheet1") with the Form Name but no go.

 

[RobC]

Dave,

Figured it out...

Form1.Controls.Item("OptionButton" & iCtr).Caption = "www " & iCtr

You got me in the right direction,

Thanks, Rob

 

[Dave Peterson]

Glad you found the solution.

Dave,

Figured it out...

Form1.Controls.Item("OptionButton" & iCtr).Caption = "www " & iCtr

You got me in the right direction,

Thanks, Rob