Hi René,

Assuming you want the loop to apply to all of the checkbox objects on
Sheet1, you could do it like this:

Dim objControl As OLEObject
For Each objControl In Sheet1.OLEObjects
If TypeOf objControl.Object Is MSForms.CheckBox Then
objControl.Object.Value = False
End If
Next objControl

--
Rob Bovey, MCSE, MCSD, Excel MVP
Application Professionals
http://www.appspro.com/

* Please post all replies to this newsgroup *
* I delete all unsolicited e-mail responses *


"René" wrote in message
...
How can use a loop to do the following:

Sheet1.CheckBox1.Value = Unchecked
Sheet1.CheckBox2.Value = Unchecked
Sheet1.CheckBox3.Value = Unchecked
Sheet1.CheckBox4.Value = Unchecked
Sheet1.CheckBox5.Value = Unchecked
Sheet1.CheckBox6.Value = Unchecked
Sheet1.CheckBox7.Value = Unchecked
Sheet1.CheckBox8.Value = Unchecked
Sheet1.CheckBox9.Value = Unchecked
Sheet1.CheckBox10.Value = Unchecked
Sheet1.CheckBox11.Value = Unchecked
Sheet1.CheckBox12.Value = Unchecked
Sheet1.CheckBox13.Value = Unchecked
Sheet1.CheckBox14.Value = Unchecked
Sheet1.CheckBox15.Value = Unchecked
Sheet1.CheckBox16.Value = Unchecked
Sheet1.CheckBox17.Value = Unchecked
Sheet1.CheckBox18.Value = Unchecked
Sheet1.CheckBox19.Value = Unchecked
Sheet1.CheckBox20.Value = Unchecked
Sheet1.CheckBox21.Value = Unchecked
Sheet1.CheckBox22.Value = Unchecked
Sheet1.CheckBox23.Value = Unchecked
Sheet1.CheckBox24.Value = Unchecked
Sheet1.CheckBox25.Value = Unchecked
Sheet1.CheckBox26.Value = Unchecked
Sheet1.CheckBox27.Value = Unchecked
Sheet1.CheckBox28.Value = Unchecked
Sheet1.CheckBox29.Value = Unchecked
Sheet1.CheckBox30.Value = Unchecked

Many thanks in advance