Deriving a name from variables

B

brichard429

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?
 
D

Dave Peterson

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
 
B

brichard429

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top