Check Box problem

[taylors]

Hi all

Can someone please let me know if there is a quick and simple way of unchecking upto 14 check boxes

Thanks
Stuart

 

[erik.van.geit]

Hi,

you won't need the entire code
it depends how you created the boxes
this can be used on a sheet

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

kind regards,
Erik

 

[taylors]

Thank you very much - That has saved me hours work every month

 

[erik.van.geit]

you're WELCOME