Unselect All CheckBoxes From Excel Worksheet or Workbook with VBA Macro

[Shelby21]

Hi guys,

I have been through several other threads asking this same question and have tried applying all the various methods , but for some reason I cannot get the checkboxes to uncheck using vba macro.

Looking at my Excel sheet below, I have a macro setup below the table to clear all worksheet data.

When I run the macro all the data is cleared, but the checkboxes will not uncheck.

Here is the vba code for the checkboxes I have highlighted above

Below is the code I currently have which does not work for unchecking the checkboxes

This code works just fine for another sheet I am using it on. It just does not work for the checkboxes shown in the 1st image.

 

[JEC]

One of two macro's should work

Sub jec()
 For Each cb In ActiveSheet.OLEObjects
  If cb.progID = "Forms.CheckBox.1" Then cb.Object = False
 Next
End Sub

or

Sub jec2()
ActiveSheet.CheckBoxes.Value = False
End Sub

 

[rollis13]

Hi to all.
Have you checked that all the checkboxes names (is case sensitive) are exactly "CheckBox" ? add this line of code to your macro, launch it and check the result in the Immediate pane.

'...
Dim o      As Object
For Each o In ActiveSheet.OLEObjects
    Debug.Print o.Name                        '<- added
    If InStr(1, o.Name, "CheckBox") > 0 Then o.Object.Value = False
Next o
'...

 

[Shelby21]

One of two macro's should work

Sub jec()
 For Each cb In ActiveSheet.OLEObjects
  If cb.progID = "Forms.CheckBox.1" Then cb.Object = False
 Next
End Sub

or

Sub jec2()
ActiveSheet.CheckBoxes.Value = False
End Sub

Hi JEC,

First macro worked perfectly!

Second macro did not work.

Thank you for your help!

 

[Shelby21]

Hi to all.
Have you checked that all the checkboxes names (is case sensitive) are exactly "CheckBox" ? add this line of code to your macro, launch it and check the result in the Immediate pane.

'...
Dim o      As Object
For Each o In ActiveSheet.OLEObjects
    Debug.Print o.Name                        '<- added
    If InStr(1, o.Name, "CheckBox") > 0 Then o.Object.Value = False
Next o
'...

Hi Rollis,

I tried your macro, but it did not work. JEC's first macro did the trick.

Thank you for your help!

 

[rollis13]

My code was not supposed to fix your macro, it was only for debugging purpose (the result was visible in the Immediate pane in vbe) so you could see why your macro wasn't working ... but maybe you only needed a 'ready meal'.