I have 22 CheckBox objects named CheckBox1, CheckBox2 etc. I would like to
substitue a variable to represent the name in the expression
"Sheet2.TextBox1= False" by using a do loop and varying the number portion
of the word TextBox. Any suggestions?
--
Bernie

Checkboxes and textboxes from the control toolbox toolbar???

I'm not quite sure what you're doing, but maybe this will give you an idea:

Option Explicit
Sub testme()
Dim iCtr As Long
With Sheet2
For iCtr = 1 To 22
.OLEObjects("textbox" & iCtr).Object.Enabled _
= .OLEObjects("checkbox" & iCtr).Object.Value
Next iCtr
End With
End Sub




brichard429 wrote:
>
> I have 22 CheckBox objects named CheckBox1, CheckBox2 etc. I would like to
> substitue a variable to represent the name in the expression
> "Sheet2.TextBox1= False" by using a do loop and varying the number portion
> of the word TextBox. Any suggestions?
> --
> Bernie

--

Dave Peterson

Thank You Dave. Here is the code I used to clear all of the 22 CheckBoxes of
checks using your suggestion.

Dim iCtr As Long
With Sheet2
For iCtr = 1 to 22
.OLEObjects("CheckBox" & iCtr).Object.Value = False
Next iCtr
End With
--
Bernie


"Dave Peterson" wrote:

> Checkboxes and textboxes from the control toolbox toolbar???
>
> I'm not quite sure what you're doing, but maybe this will give you an idea:
>
> Option Explicit
> Sub testme()
> Dim iCtr As Long
> With Sheet2
> For iCtr = 1 To 22
> .OLEObjects("textbox" & iCtr).Object.Enabled _
> = .OLEObjects("checkbox" & iCtr).Object.Value
> Next iCtr
> End With
> End Sub
>
>
>
>
> brichard429 wrote:
> >
> > I have 22 CheckBox objects named CheckBox1, CheckBox2 etc. I would like to
> > substitue a variable to represent the name in the expression
> > "Sheet2.TextBox1= False" by using a do loop and varying the number portion
> > of the word TextBox. Any suggestions?
> > --
> > Bernie
>
> --
>
> Dave Peterson
> .
>