Clear Contents and Checkboxes Button

[chparkervatech]

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.

<code style="margin: 0px; padding: 0px; font-style: inherit; font-weight: inherit;">Private Sub CommandButton1_Click()
Range("E5:E8").ClearContents
Sub clearcheck()
ActiveSheet.CheckBoxes.Value = False
End Sub</code>

 

[seguin85]

Hi,

You seem very close, try this:

Sub Macro1()

Dim XBox As CheckBox


Range("E5:E8").ClearContents


For Each XBox In ActiveSheet.CheckBoxes
    XBox.Value = False
Next


End Sub