Delete unused sheets?

Hello!

Here is what I would like to do:

When you are done using your workbook, select Save/Save As/ or respond Yes to that Do you want to Save Changes dialogue box.

The program looks for every sheet that has DELETEME in all cells G1:G3 or H1:H3.

Before it saves, it pops up a dialogue box asking "Do you want to save the entire workbook, or just the changed sheets? (Sheets Sheet1Name, Sheet2Name, Sheet3Name will be deleted.)"

If you select Entire Workbook (or the macro has an error), save the entire workbook as normal (bring up the "How do you want to save?" dialogue). Otherwise, If you select Changed Sheets, delete all sheets with DELETEME in G1:G3 or H1:H3, and then bring up the "How do you want to save?" dialogue.

(I have 6 workbooks with varying number of sheets. Instead of the users saving the entire workbook when only one sheet has been changed, I want only the changed sheets to be saved and the rest of the unused sheets deleted. Those cells G1:G3 are for Last Name, First Name, Middle Name. I pre-fill those with DELETEME. If the user hasn't used those sheets and changed the name data, DELETEME will still be there.)

??

Thanks for the help!

VR/Lost

Try This

Please Login or Register  to view this content.

Just save the workbook, what is the difference if you only changed one worksheet or all of them?

If it works, then great!