Create popup menu to unhide worksheet

[trypsin25]

Hi! I am looking for a code that will create a popup menu that appears when a user opens the workbook. The menu would have 4 choices and each choice would unhide a different set of tabs. Below are the menu names and tab combinations. I'm not even sure where to start. TIA!!!


Menu Option Would unhide tabs
Direct Sales LeadershipSoftwareOverview & DirectSales & AccountList
ETC DRB Summary & ETC Pricing & PI Software
Leadership&Software LeadershipSoftwareOverview & LeadershipSoftwareDealBuild & AccountList
ETC PLUS Leadership&Software DRB Summary & ETC Pricing & PI Software & LeadershipSoftwareOverview & LeadershipSoftwareDealBuild & AccountList

 

[JoeMo]

Only you know where the menu options end and the tab names begin. You need to tell us and, for me at least, does "unhide a set of tabs" mean just one tab for each option or more than one tab for each option?

 

[trypsin25]

So sorry!! Below are the options and tabs in a better format. Thanks!!

Menu Option 1 = Direct Sales
Unhides tabs = LeadershipSoftwareOverview & DirectSales & AccountList

Menu Option 2 = ETC
Unhides tabs = DRB Summary & ETC Pricing & PI Software

Menu Option 3 =Leadership&Software
Unhides tabs =LeadershipSoftwareOverview & LeadershipSoftwareDealBuild & AccountList

Menu Option 4 = ETC PLUS Leadership&Software
Unhides tabs = DRB Summary & ETC Pricing & PI Software & LeadershipSoftwareOverview & LeadershipSoftwareDealBuild & AccountList

 

[trypsin25]

So sorry!! Below are the options and tabs in a better format. Thanks!!

Menu Option 1 = Direct Sales
Unhides tabs = LeadershipSoftwareOverview & DirectSales & AccountList

Menu Option 2 = ETC
Unhides tabs = DRB Summary & ETC Pricing & PI Software

Menu Option 3 =Leadership&Software
Unhides tabs =LeadershipSoftwareOverview & LeadershipSoftwareDealBuild & AccountList

Menu Option 4 = ETC PLUS Leadership&Software
Unhides tabs = DRB Summary & ETC Pricing & PI Software & LeadershipSoftwareOverview & LeadershipSoftwareDealBuild & AccountList

 

[JoeMo]

So sorry!! Below are the options and tabs in a better format. Thanks!!

Menu Option 1 = Direct Sales
Unhides tabs = LeadershipSoftwareOverview & DirectSales & AccountList

Menu Option 2 = ETC
Unhides tabs = DRB Summary & ETC Pricing & PI Software

Menu Option 3 =Leadership&Software
Unhides tabs =LeadershipSoftwareOverview & LeadershipSoftwareDealBuild & AccountList

Menu Option 4 = ETC PLUS Leadership&Software
Unhides tabs = DRB Summary & ETC Pricing & PI Software & LeadershipSoftwareOverview & LeadershipSoftwareDealBuild & AccountList

This is untested so may need some tweaking. The code below goes into a Thisworkbook module. Follow the instructions below.

To install ThisWorkbook code:
1. With your workbook active press Alt and F11 keys. This will open the VBE window.
2. In the project tree on the left of the VBE window, find your project and double-click the 'Thisworkbook' icon.
3. Copy the code below from your browser window and paste it into the white space in the VBE window.
4. Close the VBE window and Save the workbook. If you are using Excel 2007 or a later version do a SaveAs and save it as a macro-enabled workbook (.xlsm file extension).
5. Make sure you have enabled macros whenever you open the file or the code will not run.

Private Sub Workbook_Open()
Dim Msg As String, OptNum As Variant, Sht As Worksheet
Msg = "Enter the option number from the Options below" & vbCrLf & vbCrLf
Msg = Msg & "1. Direct Sales"
Msg = Msg & vbCrLf & vbCrLf & "2. ETC"
Msg = Msg & vbCrLf & vbCrLf & "3. Leadership&Software"
Msg = Msg & vbCrLf & vbCrLf & "4. ETC PLUS"
OptNum = Application.InputBox(Msg, Title:="SELECT AN OPTION NUMBER", Type:=1)
If OptNum = False Then Exit Sub
Application.ScreenUpdating = False
Select Case OptNum
    Case 1
        For Each Sht In Sheets(Array("LeadershipSoftwareOverview", "DirectSales", "AccountList"))
            Sht.Visible = True
        Next Sht
    Case 2
        For Each Sht In Sheets(Array("DRB Summary", "ETC Pricing", "PI Software"))
            Sht.Visible = True
        Next Sht
    Case 3
        For Each Sht In Sheets(Array("LeadershipSoftwareOverview", "LeadershipSoftwareDealBuild", "AccountList"))
            Sht.Visible = True
        Next Sht
    Case 4
        For Each Sht In Sheets(Array("DRB Summary", "ETC Pricing", "PI Software", "LeadershipSoftwareOverview", "LeadershipSoftwareDealBuild", "AccountList"))
            Sht.Visible = True
        Next Sht
End Select
Application.ScreenUpdating = True
End Sub

The code will run automatically whenever the workbook is first opened.

 

[trypsin25]

Thank you for your help on this!!

 

[JoeMo]

Thank you for your help on this!!

You are welcome - thanks for the reply.