Clear all check boxes on an Excel form

I'm creating a Macro that clears cells and ALL check boxes from my form, however it only clears check boxes in the first group box (and leaves all other check boxes ticked).

The code I'm using:

Sub clearcheck() ActiveSheet.CheckBoxes.Value = False

Range("D4:E4").Select

Selection.ClearContents
ActiveSheet.Shapes.Range(Array("Label 61")).Select
Range("H4:I4").Select
Selection.ClearContents
Range("M4:N4").Select
Selection.ClearContents

End Sub

enter image description here

Can anyone help me with my code?