display Selection Box of each/every Worksheet on open - delete unchecked sheets...

Hi @ Alixnb1

You can use two macros for doing that:
The first one must be copied to the "ThisWorkbook" module
The second one must be copied to a Standard module.

Then save the book.
From now whenever you open the book, a new sheet named MyControl is created, with a list of all sheets ( including hidden ones).
you can check the boxes and run the second macro to delete the marked sheets.
Remember to always check MyControl sheet.

Please Login or Register  to view this content.

Please Login or Register  to view this content.

@vichopalacios, so got some questions for you.

yes it is working backwards, whatever you check, that gets deleted. also if you save the workbook, close it and reopen it, it fails on this line:

Please Login or Register  to view this content.

so i put this in its place so that it doesn't error out on the MyControl sheet

Please Login or Register  to view this content.

now the question is how to update MyControl tab so that when it deletes the sheets, it updates the page to reflect that.

thoughts?

Try workbook here

Userform1 code

Please Login or Register  to view this content.

Module code

Please Login or Register  to view this content.

Hi @dmcgov
I have a couple of comments here:

Please Login or Register  to view this content.

This line of code does nothing, because the name of Worksheets("MyControl") will never be ""
Better to check if there is that sheet, and delete it.
If you do that, you don't need to duplicate the code in the Clean macro.
so, please try with the following

Please Login or Register  to view this content.

Please Login or Register  to view this content.

@alixbb1 did you look at workbook I posted - may save you time


One userform called Userform1

One Listbox called Listbox1

One command button called CommandButton1

Hi @Alixnb1

You have been presented 2 different solutions for your request:
the first one is a "In sheet", the second one is a independent "UserForm"

If you want to go with the in sheet:
you need to paste the final "Private Sub Workbook_Open()" in the "Thisworkbook" module,
and the "Sub CleanSheets()" in a standard Module

If you want to go with the second one:
you need to create a new Userform,
assign to its module the "Private Sub UserForm_Initialize()" ,
and then paste the "Sub CleanSheets()" ... from nigelog post #7... into a standard Module
and finally paste the next code into your "Thisworkbook" module

Please Login or Register  to view this content.