Solved: Checkboxes form Form Controls

Hi everybody
I found a code which works fine for the checkboxes from ActiveX Controls..
The code

Code:

---

Sub UntickCheckBoxesControls()
Dim I As Long
For I = 1 To 4
    ActiveSheet.OLEObjects("CheckBox" & I).Object.Value = False
Next I
End Sub

---

I tried to apply it on checkboxes from Form Controls
Any help about that..I'd be appreciate

[vba]


Sub UntickCheckBoxesControls()
Dim i As Long
For i = 1 To 4
ActiveSheet.CheckBoxes("Check Box " & i).Value = False
Next i
End Sub
[/vba]

Thank you very much Mr. xld
You are always in my heart as my brother