I'm developing a fairly complex Userform with 8 checkboxes. Is there a way to
control all boxes with one command. Say for example the end user selects 6 of
the 8 boxes, then clicks run and then excel does its thing. My question is,
is there anyway to clear all the checkboxes with one line, instead of
checkbox1.value = false, checkbox2.value = false, etc...? Or another example
would be if none of the checkboxes are selected then my msgbox would appear,
but be able to do this in one line. I just want to simplfy the code from 8
lines to 1 line. Thanks.

Add a Frame in the userform and move all the checkboxes in to that frame.
If userform name is UF1 and Fram name is Frm1 Then
You can do:

Dim chBx
For each chBx in Frm1.Controls
chBx.Value = False
Next

Sharad

"Brad" wrote in message
...
I'm developing a fairly complex Userform with 8 checkboxes. Is there a way
to
control all boxes with one command. Say for example the end user selects 6
of
the 8 boxes, then clicks run and then excel does its thing. My question
is,
is there anyway to clear all the checkboxes with one line, instead of
checkbox1.value = false, checkbox2.value = false, etc...? Or another
example
would be if none of the checkboxes are selected then my msgbox would
appear,
but be able to do this in one line. I just want to simplfy the code from
8
lines to 1 line. Thanks.

for each ctrl in userform1.controls
if typeof ctrl is MsForms.checkbox then
ctrl.Value = False
end if
Next

or

for i = 1 to 8
if userform1.Controls('checkbox" & i).Value = False
Next

there is no Checkboxes.Clear command.

--
Regards,
Tom Ogilvy


"Brad" wrote in message
...
I'm developing a fairly complex Userform with 8 checkboxes. Is there a way
to
control all boxes with one command. Say for example the end user selects 6
of
the 8 boxes, then clicks run and then excel does its thing. My question
is,
is there anyway to clear all the checkboxes with one line, instead of
checkbox1.value = false, checkbox2.value = false, etc...? Or another
example
would be if none of the checkboxes are selected then my msgbox would
appear,
but be able to do this in one line. I just want to simplfy the code from
8
lines to 1 line. Thanks.

Here is a snip-it from one of my macros to clear text boxes, maybe you
can alter it to work for you.

For Each txtcontrol In Controls
If Left(txtcontrol.Name, 2) = "tx" Then txtcontrol.Text = ""
Next



*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!