Sheet Checkboxes clear
 

how do i set a macro to clear checkboxes that are on sheet1 of my workbook.

i would like to do this with a macro because there are about 50 of them.

Sheet Checkboxes clear
 

Hi Pete,

If the checkboxes are from the Forms Toolbar, then try:

ActiveSheet.CheckBoxes = False

If they are from the Control Toolbox, try:

'=======================
Public Sub Tester01()
Dim sh As Worksheet
Dim oleObj As OLEObject

Set sh = ActiveSheet

For Each oleObj In sh.OLEObjects
If TypeOf oleObj.Object Is MSForms.CheckBox Then
oleObj.Object.Value = False

End If
Next oleObj

End Sub
'<<=======================

---
Regards,
Norman



"Pete" wrote in message
...
how do i set a macro to clear checkboxes that are on sheet1 of my
workbook.

i would like to do this with a macro because there are about 50 of them.

Sheet Checkboxes clear
 

Thanks Norman - they were from the forms toolbar and
ActiveSheet.CheckBoxes = False
worked

"Norman Jones" wrote in
:

Hi Pete,

If the checkboxes are from the Forms Toolbar, then try:

ActiveSheet.CheckBoxes = False

If they are from the Control Toolbox, try:

'=======================
Public Sub Tester01()
Dim sh As Worksheet
Dim oleObj As OLEObject

Set sh = ActiveSheet

For Each oleObj In sh.OLEObjects
If TypeOf oleObj.Object Is MSForms.CheckBox Then
oleObj.Object.Value = False

End If
Next oleObj

End Sub
'<<=======================

---
Regards,
Norman



"Pete" wrote in message
...
how do i set a macro to clear checkboxes that are on sheet1 of my
workbook.

i would like to do this with a macro because there are about 50 of
them.