Need automatic macro that makes 4 sheets disappear if a sheet outside of those 4 is select

[caliskier]

Hi all..

I have done this before with one sheet, where I use the deactivate command in the code for that sheet, if that sheet is deselected then it disappears...

Please Login or Register  to view this content.

What I want to know know, is if I select a sheet other than sheet1, sheet2, sheet3 and sheet4, than those 4 all become hidden.

Thanks,

[6StringJazzer]

Try this code in the ThisWorkbook module. Update with your actual sheet names for the four sheets you want to hide. (I'm assuming by "disappear" you mean "hide" and not "delete".)

Please Login or Register  to view this content.

How do you make them reappear?

[jolivanes]

Or

Please Login or Register  to view this content.

[mehmetcik]

This is a workbook Macro.

This needs to be posted in a specific part of the workbook.

Select Developer and then visual basic

Select View and then Project Explorer

In the List that opens, find your project and double click on "This Workbook"

Paste this macro in the module that opens.

NB: I have written the macro so it is easy to expand and update.

Please Login or Register  to view this content.

[caliskier]

Try this code in the ThisWorkbook module. Update with your actual sheet names for the four sheets you want to hide. (I'm assuming by "disappear" you mean "hide" and not "delete".)

Please Login or Register  to view this content.

How do you make them reappear?

perfect... I have a button on another sheet that makes them appear. The other sheet is a form, I don't like overwhelming folks with a bunch of sheets, only appear when you need them, go away when you don't.

Thanks so much!!

[caliskier]

This is a workbook Macro.

This needs to be posted in a specific part of the workbook.

Select Developer and then visual basic

Select View and then Project Explorer

In the List that opens, find your project and double click on "This Workbook"

Paste this macro in the module that opens.

NB: I have written the macro so it is easy to expand and update.

Please Login or Register  to view this content.

Just saw yours after solved, thanks to you to, might come back if I expand on my sheets

[jolivanes]

I know your case is solved but as I was playing with Select Case, here it is.
Forget about my previous post (which you probably did already). I should read the requirements better.
This seems to work also. Easy to add to or delete from also.

Please Login or Register  to view this content.