I use VBA/VB.Net to build better ways of achieving every day tasks
Creating the Menu
The first part of making a menu is the easiest part. Create a sheet called "Main Menu" and stick it in the first slot on the sheet tab bar at the bottom of the screen (so it is index 1). On this sheet create your menu, for now we'll keep it basic and have 3 buttons linking to different sheets in the workbook like below
Once you have created your Main Menu it's time to start writing some VBA code to make the buttons do what we want.
- Open the VBA editor (ALT + F11)
- In the Project Window (Top left window), right-click and select "Insert" and then Module (not Class Module!)
Each button will require its own code, you can group these codes in the Module you just created and call each one individually. So let's start with the button that will open Sheet 2.
First off, double click on Module1 in the Project Window, in the bottom left window (Properties Window), rename the module to "Menu_Buttons"
The following code will open sheet 2:
So lets just take a quick look at what this code consists of. First off, it's really good to get in to the habit of naming your routines appropriately, "Open_Sheet_2" is nice and easy to remember and gives detail about what the routine is doing.
Line 3 is the line that does all the work, the "Sheets(" section of the code tells VBA that you are about to name a Sheet, between the quotation marks is then the name of the sheet as it appears in Excel. Once you've closed off the quotation marks and brackets, the ".Activate" then tells VBA that you want to bring the named sheet into the main focus of the workbook.
With all of the other buttons, your code should look something like this:
Now we need to link the code to the buttons, this is very easy! Right-click on a button and select "Assign Macro". From the menu that appears, select the appropriate routine from the list, so for Sheet 2, select "Open_Sheet_2" from the list.
Now, click your button to test it!
Hiding Sheets From the Tab Bar
Just say you have 40 Sheets in a workbook, even though you have a main menu it is still untidy to look at all those sheets at the bottom. We can add a bit more code to what we already have, and one more button, and we'll be able to hide all sheets with 1 click! When the sheet is selected from the Main Menu, the sheet tab will re-appear at the bottom.
Create a new button on the Main Menu with the text "Close All Tabs" inside:
In the same Module you made earlier, add the following code:
As the comments in the code state, this code will check all of the sheets and close them if they are not called "Main Menu". Now you need to assign this macro to the button. Again, right-click the "Close All Tabs" button and assign the "Close_All_Sheets" macro.
Click the button and watch all the sheets close!
Now all that is left to do is add the code to tell the sheet buttons to unhide the sheet you want to open:
With the completed code above, you now have a fully functional Menu system that automatically un-hides any sheet, plus the facility to quickly hide all open sheets.
How'd You Get On?
© 2014 Liam
Jimoh Lateef. email@example.com on January 30, 2020:
I tried the above cod. All correct to the last level and tested okay. But after the last code then trying to run. It keeps on showing a dialog box written on it. "Microsoft Visual Basic for Applications". " Compile error: Ambiguous name detected:Open_Sheet_2. I tried it over and over again. Stil the same message. Pls what should I do?