Hide/Unhide Worksheets based on drop down

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

' goes in the "Select Test Type" worksheet class module
' right click on the sheet tab and post the code

If Intersect(Target, Range("B3")) Is Nothing Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub

Sheets(Array(Target.Value, Target.Value & " details")).Visible = False

End Sub

Regards, TMS

Hi Kerplunk1039,

Welcome to the forum!!

Assign this macro to the Go button on the Select Test Type tab of your workbook:

Option Explicit
Sub Macro1()

    Dim wsMySheet As Worksheet
    Dim strMySelection As String
    
    Application.ScreenUpdating = False
    
    strMySelection = ActiveSheet.Range("B3")
    
    For Each wsMySheet In ThisWorkbook.Sheets
        If wsMySheet.Name = "Header" Or wsMySheet.Name = "Select Test Type" Then
            wsMySheet.Visible = xlSheetVisible
        ElseIf InStr(wsMySheet.Name, strMySelection) > 0 Then
            wsMySheet.Visible = xlSheetVisible
        Else
            wsMySheet.Visible = xlSheetHidden
        End If
    Next wsMySheet
    
    Application.ScreenUpdating = True

End Sub

Note you will then have to save the workbook as an Excel Macro-Enabled Workbook (*.xlsm).

Regards,

Robert

Hi Kerplunk1039,

Just to expand on this is it possible to put something in there that when the file is opened only the header sheet and select test type sheet are visible.

You can use this (almost identical) code from my first post:

Option Explicit
Private Sub Workbook_Open()

    Dim wsMySheet As Worksheet
    
    Application.ScreenUpdating = False
    
    strMySelection = ActiveSheet.Range("B3")
    
    For Each wsMySheet In ThisWorkbook.Sheets
        If wsMySheet.Name = "Header" Or wsMySheet.Name = "Select Test Type" Then
            wsMySheet.Visible = xlSheetVisible
        Else
            wsMySheet.Visible = xlSheetHidden
        End If
    Next wsMySheet
    
    Sheets("Select Test Type").Select 'Default tab upon opening. Change to suit if necessary.
    
    Application.ScreenUpdating = True

End Sub

Just note it goes in the ThisWorkbook module of your workbook not a blank module like my above code.

Regards,

Robert

Oops, sorry, misread and went for a quick solution

Looks like you have an answer now though.

Regards, TMS