I Need Macro Code To Make A Button To Uncheck All Checked Boxes ... None Of The Checkboxes Are Named

[dkeagy]

I Need Macro Code To Make A Button To Uncheck All Checked Boxes ... None Of The Checkboxes Are Named

Please Help - Thanks

 

[MARK858]

Seeing as you don't specify what type of checkboxes they are try this macro by Erik.Van.Geit.

Sub uncheck_all()
Dim sh As Shape
Application.ScreenUpdating = False
    For Each sh In ActiveSheet.Shapes
      If sh.Type = msoOLEControlObject Then
        If TypeName(sh.OLEFormat.Object.Object) = "CheckBox" Then sh.OLEFormat.Object.Object = False
      End If
      If sh.Type = msoFormControl Then
        If sh.FormControlType = xlCheckBox Then sh.OLEFormat.Object = False
      End If
    Next sh
Application.ScreenUpdating = True
End Sub

 

[dkeagy]

It worked!!! THANK YOU SO MUCH!!!

Seeing as you don't specify what type of checkboxes they are try this macro by Erik.Van.Geit.

Sub uncheck_all()
Dim sh As Shape
Application.ScreenUpdating = False
    For Each sh In ActiveSheet.Shapes
      If sh.Type = msoOLEControlObject Then
        If TypeName(sh.OLEFormat.Object.Object) = "CheckBox" Then sh.OLEFormat.Object.Object = False
      End If
      If sh.Type = msoFormControl Then
        If sh.FormControlType = xlCheckBox Then sh.OLEFormat.Object = False
      End If
    Next sh
Application.ScreenUpdating = True
End Sub

 

[MARK858]

Happy it gave you a solution but like I implied the code is doing more than it needs to (especially if the checkboxes are form controls)