Perhaps like this, on a worksheet called "Choices" and 6 other sheets called Major1-Major6. A selection box in cell B5 and the following Worksheet_Change macro in the Choices worksheet module:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B5")) Is Nothing Then
Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name <> "Choices" Then ws.Visible = xlSheetVeryHidden
Next
Select Case Target.Value
Case "Major1"
Worksheets("Major1").Visible = xlSheetVisible
Case "Major2"
Worksheets("Major2").Visible = xlSheetVisible
Case "Major3"
Worksheets("Major3").Visible = xlSheetVisible
Case "Major4"
Worksheets("Major4").Visible = xlSheetVisible
Case "Major5"
Worksheets("Major5").Visible = xlSheetVisible
Case "Major6"
Worksheets("Major6").Visible = xlSheetVisible
End Select
End If
End Sub
Bookmarks