Excel VBA -making Objectnames variable

B

Bijl167

Hi,

I have X objects on a Form on which the same actions need to be done a
initialisation. Does anyone know how I can do this without typing th
code for all objects.

what I have tried


from i=1 to end

tickbox= "object" & i

With tickbox
.value=true
.enabled= true
.visible=true

next i


The problem that I have is that I don't get VBA to recognise th
varuiable tickbox as an objectname, tho there is an object name
"objectname1"

Can anyone help
Thnx
 
N

Norman Jones

Hi Bijl167,

Try:

Private Sub UserForm_Initialize()
Dim ctrl As Control
For Each ctrl In Me.Controls
If TypeName(ctrl) = "CheckBox" Then
With ctrl
.Value = True
.Enabled = True
.Visible = True
End With
End If
Next
End Sub
 
T

Tom Ogilvy

Assume your tickboxes are named CheckBox1 to Checkbox10

Private Sub Userform_Initialize()
Dim i as long, lEnd as Long
lEnd = 10

from i = 1 to lEnd

With me.controls("Checkbox" & i")

.value=true
.enabled= true
.visible=true

End With
next i
End Sub
 
Top