Toggle Buttons to select multiple sheets for printing

[kakiebos]

Hi All.

I created a user form with multiple toggle buttons. Each buttons represents a sheet in the spread sheet. I would like to be able to only print the pages of the buttons that the user selected.

At first I tried to use the respective click button subs to select the sheets. It only select the one sheet and as soon as I click on the next button it selects the next sheet and unselect the previous sheet.

I need it to keep all the sheets selected according to the buttons that was selected. That is if the toggle button value is true the sheet needs to be selected and if the value is false the sheet must not be selected.

What code will I need to write for this?

I would prefer not to use a list box with multi select as it is sometimes easy to forget to press the control button for multi selection and most of the users that will use this spreadsheet is not really computer literate and will not know how to use shift and control to select multiple selections in a list box.

I'm pretty new to vba, so any help will be appreciated.

 

[Fluff]

To get the first of the month use

sdate = shSummary.Range("Y7").Value
sdate = Format(DateSerial(Year(sdate), Month(sdate), 1), "yyyymmdd")

and for the name try

Name = Application.Proper(shSummary.Range("B7").Value)