Deriving a name from variables

  • Thread starter Thread starter brichard429
  • Start date Start date
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?
 
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
 
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
 
Back
Top