Resetting CheckBoxes

  • Thread starter Thread starter VILLABILLA
  • Start date Start date
V

VILLABILLA

Hello everyone!

I would like to reset all checkboxes on my active sheet or workboo
back to there 'standard setting'.
I have many checkboxes in my workbook and it would be a great help if
could reset them all at ones by pressing a button that is assigned t
that macro that would reset all of them. If it would only be possibl
to reset the currently active sheet, I already would be very happy wit
that...

Your help is very much appreciated
 
Villa,
The standard setting is false. For example here is a part
of a macro I use for one of my worksheets that is used to
deselect check boxes for printing ranges previously
selected by the user:

Sheets("Print").Select
Sheet8.chkGJ.Value = False
Sheet8.chkTrend.Value = False
Sheet8.chkIV.Value = False
Sheet8.chkFlux.Value = False
Sheet8.chkPend.Value = False
Sheet8.ChkSales.Value = False
Sheet8.chkRecon.Value = False

Regards
 
HI,

Here's some code

Sub ResetCheckboxes()
Dim sh As Worksheet

On Error Resume Next
For Each sh In ActiveWorkbook.Worksheets
sh.CheckBoxes.Value = xlOff
Next sh

End Sub

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
Hi,

I just found out it would be better if the macro would only apply o
the active worksheet.

So that macro I am looking for.

Please help..
 
Sub ResetCheckboxes()
Dim sh As Worksheet

On Error Resume Next
Activesheet.CheckBoxes.Value = xlOff

End Sub


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
 
Back
Top