Macro To Open A Hidden Worksheet When Button (Form Control) Is Clicked

Hi,

I have the following code in a module

Sub goto_sheet()
Sheets("Thyristors").Select
End Sub
Sub back_to_sheet()
Sheets("Main Menu").Select
End Sub


On the Thyristors sheet I have a button that says Main menu, when clicked it takes me back to the Main menu.

On the Main Menu sheet I have button that says Thyristors, when clicked it takes me to the Thyristors worksheet.

I have identical modules for several worksheets so I can go back and to each sheet from the main menu.

I wanted to tidy up my spreadsheet and hide all the sheets other than the main menu sheet. But if I hide a sheet I then get an error when my macro buttons are used to open them.

What do I need to change to the code?

Many thanks for your help.

First you need to edit your post and insert the code in CODE tags so it looks like this:

Sub goto_sheet()
Sheets("Thyristors").Select
End Sub
Sub back_to_sheet()
Sheets("Main Menu").Select
End Sub

You that by clicking Edit Post and then highlight the code and press # next to the <> sign and hit save.

For your problem.
You can use this:

Sub goto_sheet()

Sheets("Thyristors").Hidden = False
Sheets("Thyristors").Activate

End Sub

For going back to main menu:

Sub back_to_sheet()
ActiveSheet.Hidden = True
Sheets("Main Menu").Activate
End Sub

Originally Posted by stojko89

First you need to edit your post and insert the code in CODE tags so it looks like this:

Sub goto_sheet()
Sheets("Thyristors").Select
End Sub
Sub back_to_sheet()
Sheets("Main Menu").Select
End Sub

You that by clicking Edit Post and then highlight the code and press # next to the <> sign and hit save.

Also please check this reminder and do as asked.

Hi,

Thank you for your reply.

I've tried the code but I get the following run time error 438 "Object doesn't support this property or method"

When I select Debug it then highlights the following line under the Sub goto_sheet

<Sheets("Thyristors").Hidden = False>

Any ideas?

Regards Owain

Sory...replace the Hidden with Visible
So your codes are now:

Sub goto_sheet()

Sheets("Thyristors").Visible = True
Sheets("Thyristors").Activate

End Sub

And

Sub back_to_sheet()

ActiveSheet.Visible = False
Sheets("Main Menu").Activate

End Sub

Thanks for your help. Getting there now. I can now open the hidden Thyristor sheet, but the the go back option to main menu isn't working? Click the button and nothing happens even though I've assigned code to it. Any ideas? Your replies are much appreciated.

This works fine for me:

Sub back_to_sheet()

ActiveSheet.Visible = False
Sheets("Main Menu").Activate

End Sub

Does it hide the active sheet?
Also check if your sheet is named Main Menu and not Main Menu (space difference) also check that the name of the Main Menu sheet is the same in the macro.