Clear Contents and Checkboxes Button

Hello,

I am trying to create a button in that will clear contents of E5:E8 and and also clear all checkboxes (located in D5:D8) on the sheet. I have the codes below but can't seem to get them to work together. Additionally, I cannot recall whether I created the checkboxes with activex or form.

Private Sub CommandButton1_Click()
  Range("E5:E8").ClearContents
Sub clearcheck()
 ActiveSheet.CheckBoxes.Value = False
End Sub