Clear all checkboxes with simple code

[Drmwvr7266]

Is there a way to set all checkboxes back to false (unchecked) without writing a great deal of code? I have 37 checkboxes and just want to write some code that will reset them when I clicked my commandbutton1.

Thanx in advance.

 

[Juan Pablo González]

If your checkboxes have a name like CheckBox1, CheckBox2, etc, you can use a For like this

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

 

[Drmwvr7266]

I have the code as such:

Private Sub CommandButton1_Click()

For i = 1 To 37
Me.Controls("CheckBox" & i).Object = False
Next i

End Sub


Why am I getting an error at Controls? Should I mention that the checkboxes are on a SHEET, not a userform? The commandbutton is also on the sheet.

 

[Mudface]

This should work OK: -

Private Sub CommandButton1_Click()

For Each ctl In ActiveSheet.OLEObjects
    If ctl.ProgId = "Forms.CheckBox.1" Then
        ctl.Object.Value = False
    End If
Next ctl

End Sub

Also see http://www.mrexcel.com/board/viewtopic.php?topic=19306&forum=2

Edit: - forgot to add- original code was from Damon Ostrander in the post above.
This message was edited by Mudface on 2002-09-05 12:28

 

[Drmwvr7266]

Thank you Mudface. As always, the gang here at Mr. Excel pull through for me.