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

 

[Vampyre]

Hi

ahhh i different error is showing now .

'cant execute code in break mode'

 

[RoryA]

On which line?

 

[Vampyre]

this one

MsgBox "Please Add Name Of Requester"

 

[Cease]

If you got your checkboxes from the developer tab, you would have the option to enter checkboxes as either Form control or ActiveX control.

Sounds like you went with the form control, if so, these two macros might work.
Just as Rorya said to set this as a new module:

to Check the box:

Sub check()
    ActiveSheet.Shapes("Check Box 1").Select
    With Selection
        .Value = xlOn
        .LinkedCell = "$J$3"
        .Display3DShading = False
    End With
End Sub

and to uncheck:

Sub unCheck()
    ActiveSheet.Shapes("Check Box 1").Select
    With Selection
        .Value = xlOff
        .LinkedCell = "$J$3"
        .Display3DShading = False
    End With   
End Sub

You can change the .LinkedCell or .Display3DShading as you prefer, might not even need them in. I'm still learning too.

Also if in doubt the macro recorder can be your best friend, once you learn how to use it.

Hope it helps!

 

[Vampyre]

hi

changed it to following

Sub unCheck()
ActiveSheet.Shapes("Check Box 1").Select
With Selection
.Value = xlOff
.LinkedCell = "check box 88"
.Display3DShading = False
End With
End Sub


still no joy

 

[Vampyre]

realised error in last entry

but still not joy

Sub unCheck()
ActiveSheet.Shapes("Check Box 88").Select
With Selection
.Value = xlOff
.LinkedCell = "$J$3"
.Display3DShading = False
End With
End Sub