Excel VBA Problem - Clearing multiple checkboxes

  • Thread starter Thread starter rott
  • Start date Start date
R

rott

Hi I have an excel spreadsheet that has 156 checkboxes on it. What I a
trying to do is with the click of a command button, I want to be abl
to clear all check boxes at once.

I know there is an easier way than going through all 156 checkboxes an
setting their value to false.

Eg. CheckBox1.Value = False
CheckBox2.Value = False

Can this be done in a For statement or something simple that wil
execute when the command button is pressed and clear all th
checkboxes.

I have tried doing something like this but it does not work:

Private Sub Cmd1_Click()
Dim i As Integer

For i = 1 To 156 Step 1
Checkbox(i).Value = False
Next i

End Sub

Can someone help me out?
Thank
 
Hi rott >,

Something like this should do the trick:

Sub ClearChkBoxes()
Dim ctl As OLEObject

For Each ctl In Worksheets("Sheet1").OLEObjects
If TypeOf ctl.Object Is MSForms.CheckBox Then
ctl.Object.Value = False
End If
Next ctl
End Sub

--
Regards,

Jake Marx
MS MVP - Excel
www.longhead.com

[please keep replies in the newsgroup - email address unmonitored]
 
Back
Top