ArtsAutosBooksBusinessEducationEntertainmentFamilyFashionFoodGamesGenderHealthHolidaysHomeHubPagesPersonal FinancePetsPoliticsReligionSportsTechnologyTravel

Excel VBA - Creating A Main Menu

Updated on August 24, 2014

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 lets 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:

Public Sub Open_Sheet_2()

    Sheets("Sheet2").Activate

End Sub

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 in to the main focus of the workbook.

With all of the other buttons, your code should look something like this:

Public Sub Open_Sheet_2()

    Sheets("Sheet2").Activate

End Sub

Public Sub Open_Sheet_3()

    Sheets("Sheet3").Activate

End Sub

Public Sub Open_Sheet_4()

    Sheets("Sheet4").Activate

End Sub

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:

Public Sub Close_All_Sheets()

'The below code states that each Worksheet that appears in the
'active workbook should be checked to see if its name is equal
'to "Main Menu". If it isn't then set its visibility to false

For Each Worksheet In ActiveWorkbook.Worksheets
    If Worksheet.Name <> "Main Menu" Then Worksheet.Visible = False
Next

End Sub

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:

Public Sub Open_Sheet_2()
    
    Sheets("Sheet2").Visible = True
    'The above line makes the sheet
    'visible again
    
    Sheets("Sheet2").Activate

End Sub

Public Sub Open_Sheet_3()

    Sheets("Sheet3").Visible = True
    'The above line makes the sheet
    'visible again
    
    Sheets("Sheet3").Activate

End Sub

Public Sub Open_Sheet_4()
    Sheets("Sheet4").Visible = True
    'The above line makes the sheet
    'visible again
    
    Sheets("Sheet4").Activate

End Sub

Public Sub Close_All_Sheets()

'The below code states that each Worksheet that appears in the
'active workbook should be checked to see if its name is equal
'to "Main Menu". If it isn't then set its visibility to false

For Each Worksheet In ActiveWorkbook.Worksheets
    If Worksheet.Name <> "Main Menu" Then Worksheet.Visible = False
Next

End Sub

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?

Did you give this a go?

See results

Rate This Guide

5 out of 5 stars from 1 rating of this guide

© 2014 Liam

Comments

    0 of 8192 characters used
    Post Comment

    No comments yet.

    working

    This website uses cookies

    As a user in the EEA, your approval is needed on a few things. To provide a better website experience, hubpages.com uses cookies (and other similar technologies) and may collect, process, and share personal data. Please choose which areas of our service you consent to our doing so.

    For more information on managing or withdrawing consents and how we handle data, visit our Privacy Policy at: https://hubpages.com/privacy-policy#gdpr

    Show Details
    Necessary
    HubPages Device IDThis is used to identify particular browsers or devices when the access the service, and is used for security reasons.
    LoginThis is necessary to sign in to the HubPages Service.
    Google RecaptchaThis is used to prevent bots and spam. (Privacy Policy)
    AkismetThis is used to detect comment spam. (Privacy Policy)
    HubPages Google AnalyticsThis is used to provide data on traffic to our website, all personally identifyable data is anonymized. (Privacy Policy)
    HubPages Traffic PixelThis is used to collect data on traffic to articles and other pages on our site. Unless you are signed in to a HubPages account, all personally identifiable information is anonymized.
    Amazon Web ServicesThis is a cloud services platform that we used to host our service. (Privacy Policy)
    CloudflareThis is a cloud CDN service that we use to efficiently deliver files required for our service to operate such as javascript, cascading style sheets, images, and videos. (Privacy Policy)
    Google Hosted LibrariesJavascript software libraries such as jQuery are loaded at endpoints on the googleapis.com or gstatic.com domains, for performance and efficiency reasons. (Privacy Policy)
    Features
    Google Custom SearchThis is feature allows you to search the site. (Privacy Policy)
    Google MapsSome articles have Google Maps embedded in them. (Privacy Policy)
    Google ChartsThis is used to display charts and graphs on articles and the author center. (Privacy Policy)
    Google AdSense Host APIThis service allows you to sign up for or associate a Google AdSense account with HubPages, so that you can earn money from ads on your articles. No data is shared unless you engage with this feature. (Privacy Policy)
    Google YouTubeSome articles have YouTube videos embedded in them. (Privacy Policy)
    VimeoSome articles have Vimeo videos embedded in them. (Privacy Policy)
    PaypalThis is used for a registered author who enrolls in the HubPages Earnings program and requests to be paid via PayPal. No data is shared with Paypal unless you engage with this feature. (Privacy Policy)
    Facebook LoginYou can use this to streamline signing up for, or signing in to your Hubpages account. No data is shared with Facebook unless you engage with this feature. (Privacy Policy)
    MavenThis supports the Maven widget and search functionality. (Privacy Policy)
    Marketing
    Google AdSenseThis is an ad network. (Privacy Policy)
    Google DoubleClickGoogle provides ad serving technology and runs an ad network. (Privacy Policy)
    Index ExchangeThis is an ad network. (Privacy Policy)
    SovrnThis is an ad network. (Privacy Policy)
    Facebook AdsThis is an ad network. (Privacy Policy)
    Amazon Unified Ad MarketplaceThis is an ad network. (Privacy Policy)
    AppNexusThis is an ad network. (Privacy Policy)
    OpenxThis is an ad network. (Privacy Policy)
    Rubicon ProjectThis is an ad network. (Privacy Policy)
    TripleLiftThis is an ad network. (Privacy Policy)
    Say MediaWe partner with Say Media to deliver ad campaigns on our sites. (Privacy Policy)
    Remarketing PixelsWe may use remarketing pixels from advertising networks such as Google AdWords, Bing Ads, and Facebook in order to advertise the HubPages Service to people that have visited our sites.
    Conversion Tracking PixelsWe may use conversion tracking pixels from advertising networks such as Google AdWords, Bing Ads, and Facebook in order to identify when an advertisement has successfully resulted in the desired action, such as signing up for the HubPages Service or publishing an article on the HubPages Service.
    Statistics
    Author Google AnalyticsThis is used to provide traffic data and reports to the authors of articles on the HubPages Service. (Privacy Policy)
    ComscoreComScore is a media measurement and analytics company providing marketing data and analytics to enterprises, media and advertising agencies, and publishers. Non-consent will result in ComScore only processing obfuscated personal data. (Privacy Policy)
    Amazon Tracking PixelSome articles display amazon products as part of the Amazon Affiliate program, this pixel provides traffic statistics for those products (Privacy Policy)