Way to hide or unhide sheets based on selection criteria

Truth is you could have ALL the sheets hidden except for a single FRONT sheet with an organized list of all the sheetnames in the workbook. A simple macro could watch for whatever cell the user clicks on, and if the cell happens to hold a text string that matches a hidden sheet, poof, the sheet is unhidden and the user taken there.

On every hidden sheet would be a HOME button, too, so a single click in the same spot on every sheet poofs the user back to the navigation sheet, hiding the sheet they were on as they transfer home.

Pretty simple, two macros would do it. One macro in the sheet module of your HOME sheet;

Please Login or Register  to view this content.

And the other in the ThisWorkbook module:

Please Login or Register  to view this content.

These little macros could help:

Please Login or Register  to view this content.

Thanks you again JBeaucaire. Your example create three scenarios: (1)UnHideall, (2)hideall, and (3)UnHidesome. The first two work fine. The third one really is what the sample spreadsheet I uploaded with teh select boxes. When I try to run that one, it give me an error message that says "Subscript Out of Range" and I must admit that I am a complete beginner with VBA & Macros. I did make one change to you sample code:

Please Login or Register  to view this content.

As you will notice, the one change that I made to your sample was I changed "Sheet1" to "Sheet48" since "Sheet48" is the sheet that contains the user selection area that would include the "x" (i.e. the spreadsheet I uploaded on the previous post). I hope that makes sense. What are your thoughts?

Also, once I get through this issues, I would like to have a button that the sales rep using this (usually not excel literate at all) would hit to run this rather than having to hit Alt - F11 and then run.

Thanks you again for your time and consideration in this!
Jim

Subscript out of Range - this error usually means the name of some object is wrong in some manner. So something about "Sheet48" is wrong. Maybe there's a hidden space on the sheet tab.