Hiding table columns based on header row name

[anyroomforalittlechang]

Hello!

Looking to get some assistance on this one. I'm creating a sheet where the end user would select from a drop down menu and the code will run and hide columns. The problem that I'm running into is I have to write code for each instance.

What I'm trying to accomplish is to have the code recognize and hide everything that is NOT what I picked in the dropdown menu, so I don't have to write the it over and over again.

For example, something like:

ColumnToHide = Range("JobPicker")

Range("ColumnToHide_Status").EntireColumn.Hidden = True

I will also looking to incorporate multiple dropdown conditions:

If "Gym" AND "Math" are chosen, then hide everything else.




Please be gentle, I'm very new to VBA and have been hardcoding everything.

Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("JobPicker")) Is Nothing Then
        ActiveSheet.Columns.Hidden = False
        Select Case Target.Value
              
            Case "Math"
              Range("Science_Status").EntireColumn.Hidden = True
              Range("Science_Due_Date").EntireColumn.Hidden = True
              Range("Science_Priority").EntireColumn.Hidden = True
              
              Range("Arts_Status").EntireColumn.Hidden = True
              Range("Arts_Due_Date").EntireColumn.Hidden = True
              Range("Arts_Priority").EntireColumn.Hidden = True
              
              Range("Gym_Status").EntireColumn.Hidden = True
              Range("Gym_Due_Date").EntireColumn.Hidden = True
              Range("Gym_Priority").EntireColumn.Hidden = True
              
            Case "Science"
              Range("Arts_Status").EntireColumn.Hidden = True
              Range("Arts_Due_Date").EntireColumn.Hidden = True
              Range("Arts_Priority").EntireColumn.Hidden = True
              
              Range("Math_Status").EntireColumn.Hidden = True
              Range("Math_Due_Date").EntireColumn.Hidden = True
              Range("Math_Priority").EntireColumn.Hidden = True
              
              Range("Gym_Status").EntireColumn.Hidden = True
              Range("Gym_Due_Date").EntireColumn.Hidden = True
              Range("Gym_Priority").EntireColumn.Hidden = True
              
            Case "Gym"
              Range("Science_Status").EntireColumn.Hidden = True
              Range("Science_Due_Date").EntireColumn.Hidden = True
              Range("Science_Priority").EntireColumn.Hidden = True
              
              Range("Arts_Status").EntireColumn.Hidden = True
              Range("Arts_Due_Date").EntireColumn.Hidden = True
              Range("Arts_Priority").EntireColumn.Hidden = True
              
              Range("Math_Status").EntireColumn.Hidden = True
              Range("Math_Due_Date").EntireColumn.Hidden = True
              Range("Math_Priority").EntireColumn.Hidden = True
              
            Case "Arts"
              Range("Gym_Status").EntireColumn.Hidden = True
              Range("Gym_Due_Date").EntireColumn.Hidden = True
              Range("Gym_Priority").EntireColumn.Hidden = True
              
              Range("Science_Status").EntireColumn.Hidden = True
              Range("Science_Due_Date").EntireColumn.Hidden = True
              Range("Science_Priority").EntireColumn.Hidden = True
              
              Range("Math_Status").EntireColumn.Hidden = True
              Range("Math_Due_Date").EntireColumn.Hidden = True
              Range("Math_Priority").EntireColumn.Hidden = True
            
              
              
        End Select
    End If
End Sub