Conditionally show sheets based on drop down

[mfernandes]

I'm modifying a workbook we use at our company to track disaster drills. I've attached a sample workbook to demonstrate my question. As you'll see, there are three sheets, one for each of the sample programs. The problem is that in reality, there are 50 different programs that each have a sheet and it is quite annoying to have to flip through each sheet when entering information. Putting all of the sheets on one sheet and then having to scroll down would be equally annoying. I'd like to instead create a dropdown list in cell A2 (through data validation or otherwise) where a person could select the program name that they wish to enter information for and then ONLY the corresponding grid would be displayed. I'm assuming this would need to be done using VBA but unfortunately I'm a beginner when it comes to that. Can anyone help? Thanks in advance.

[JBeaucaire]

Here's how I would handle that.

1) Add a sheet to the front called NAVIGATION.

2) Run this macro on your workbook with NAVIGATION active:

Option Explicit

Sub CreateHyperlinkedSheetList()
'Author:    Jerry Beaucaire
'Date:      1/3/2011

Dim ws As Worksheet
Application.ScreenUpdating = False
ActiveSheet.Range("A:A").Clear      'clear existing list

For Each ws In ActiveWorkbook.Worksheets
    With ActiveSheet.Range("A" & Rows.Count).End(xlUp)
        .Offset(1).Value = ws.Name
        ActiveSheet.Hyperlinks.Add Anchor:=.Offset(1), Address:="", SubAddress:= _
            "'" & ws.Name & "'!A1", TextToDisplay:=ws.Name
    End With
Next ws
   
Application.ScreenUpdating = True
End Sub

(publlished site / sample workbook)

4) Copy the first link "Navigation" and put it at the top of all your other sheets

5) Reorganize the links to your liking, and you're done.

Now you can click a program link, be taken to that sheet, when done click the "Navigation" link you added to each sheet and be right back to the cover.