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


--
Regards,
Tom Ogilvy



"Bijl167 " wrote in message
...
Hi,

I have X objects on a Form on which the same actions need to be done at
initialisation. Does anyone know how I can do this without typing the
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 the
varuiable tickbox as an objectname, tho there is an object named
"objectname1"

Can anyone help
Thnx!


---
Message posted from http://www.ExcelForum.com/