Active X Checkboxes

[kls]

I have a form that has ~50 checkboxes. I want to be able to "reset" the checkboxes to false by clicking on a command button. How do I group these checkboxes together so that I don't have to type CheckBox1.Value = False 50 times?!!

I have a statement
For i = 1 to 50
Set.Checkbox(i).value = false
Next i

Only this is stopping after checkbox35.

[s-o-s]

On 2002-05-28 14:11, kls wrote:
I have a form that has ~50 checkboxes. I want to be able to "reset" the checkboxes to false by clicking on a command button. How do I group these checkboxes together so that I don't have to type CheckBox1.Value = False 50 times?!!

I have a statement
For i = 1 to 50
Set.Checkbox(i).value = false
Next i

Only this is stopping after checkbox35.

I think this should do the trick...

Sub Chkb()

For Each cb In ActiveSheet.CheckBoxes
    cb.Value = True
Next
End Sub

[Juan Pablo González]

Since you're using a Form, you can use something like

For i = 1 to 50
Me.Controls("CheckBox" & i).Object = False
Next i

[kls]

Thank you very much

This will work