I have a strange problem with the following code

'When Checkbox 61 is true, all checkboxes are tru
'Checkbox 61 is Select All of Cycle_Type Tabl

Private Sub CheckBox61_Click(
If CheckBox61.Value = True The
CheckBox41.Value = Tru
CheckBox42.Value = Tru
CheckBox43.Value = Tru
CheckBox44.Value = Tru
CheckBox45.Value = Tru
CheckBox46.Value = Tru
CheckBox47.Value = Tru
CheckBox48.Value = Tru
CheckBox49.Value = Tru
CheckBox50.Value = Tru
CheckBox51.Value = Tru
CheckBox52.Value = Tru
CheckBox53.Value = Tru
CheckBox54.Value = Tru
CheckBox55.Value = Tru
CheckBox56.Value = Tru
CheckBox57.Value = Tru
CheckBox58.Value = Tru
CheckBox59.Value = Tru
CheckBox60.Value = Tru
Els
CheckBox41.Value = Fals
CheckBox42.Value = Fals
CheckBox43.Value = Fals
CheckBox44.Value = Fals
CheckBox45.Value = Fals
CheckBox46.Value = Fals
CheckBox47.Value = Fals
CheckBox48.Value = Fals
CheckBox49.Value = Fals
CheckBox50.Value = Fals
CheckBox51.Value = Fals
CheckBox52.Value = Fals
CheckBox53.Value = Fals
CheckBox54.Value = Fals
CheckBox55.Value = Fals
CheckBox56.Value = Fals
CheckBox57.Value = Fals
CheckBox58.Value = Fals
CheckBox59.Value = Fals
CheckBox60.Value = Fals
End I

End Su

Wehn I select CheckBox61, all but Checkbox41 and Checkbox61 are selected. No matter how many times I click on CheckBox61, it does not get selected UNTIL I seperately select CheckBox41. Then I am able to select CheckBox61. Now if de-select CheckBox61, all the checkboxes are cleared
Why is this happening? I have done the same things thrice before, but there its working fine. Please help
TI
Shilps