Macro for sheets

[rhmkrmi]

Hi there,

I am looking for a macro that I can use o unhide sheets in a workbook.
I want to have three button in sheet1 for sheets 2, 3, an 4.
Sheets 2, 3, and 4 will be hidden and depending n which button we click on in sheet1, they unhide.
Also, when closing the workbook, I do not want to allow saving so that when the workbook is used next, sheets 2, 3, and 4 will be hidden.

Thank you.

 

[MoshiM]

After you have created the buttons then you will need to assign each a macro
and use something like

ActiveWorkbook.Worksheets("Name of sheet goes here").visible=xlSheethidden

or if you know the codename of the worksheet then

codename.visible=xlsheethidden

For the button that will unhide use codename.visible=xlsheetvisible for each needed worksheet instead

Finally in the workbook before save event use the same code as the button that unhides

 

[rhmkrmi]

Thank you, it is perfect.
How can I use codename.visible=xsheetisible to go to the sheet that it unhides?
At the moment it unhides the sheet but the cursor is still in sheet1 where I have the buttons.

Thanks.

 

[Fluff]

Something like

   cnData.Visible = xlSheetVisible
   Application.Goto cnData.Range("A1")

 

[rhmkrmi]

Excellent.
Tank you.

 

[Fluff]

You're welcome & thanks for the feedback