Clear Check Boxes Without VBA

[Vampyre]

Hi, I have an autoshape , that im using as a button to clear the rest of my form. i want to use this to also clear 2 clusters of check boxes.

Im not very hot on vba and would really like to do it using a macro, any ideas ??

as simple as possible please

Cheers

 

[RoryA]

Macros are VBA.

What kind of checkboxes are they - Forms or ActiveX?

 

[Vampyre]

Hi

Just regular ones. How would i know which ones which?

sorry

 

[RoryA]

How did you add them?

 

[Vampyre]

By selecting them from the design menu.

cheers

 

[RoryA]

There is no Design menu, so can you be more specific?
Alternatively, if you right-click one, does anything happen?

 

[Vampyre]

Sorry , design tool bar.

when i right click , i get the general options copy, paste etc and at the bottom there is 'format control' and 'assign macro'

 

[RoryA]

There is no Design toolbar, but I'll assume these are Forms checkboxes based on your last comment. Are they the only checkboxes on the sheet? If not, how would the code identify them?

 

[Vampyre]

yeah i only have eight , going in to look at properties gives me there name e.g. checkbox88

 

[RoryA]

OK, now I'm confused. If you have a properties window then they are ActiveX not Forms controls, and you shouldn't have an Assign Macro option when right-clicking.

Anyway, here's the code for both - you can try them and see!

Sub ResetActiveXCheckBoxes()
   Dim objole As OLEObject
   For Each objole In ActiveSheet.OLEObjects
      If TypeName(objole.Object) = "CheckBox" Then
         objole.Object.Value = False
      End If
   Next objole
End Sub
Sub ResetFormsCheckBoxes()
   Dim cb As CheckBox
   For Each cb In ActiveSheet.CheckBoxes
      cb.Value = False
   Next cb
End Sub