Delete columns depending on selection from dropdown menu

[alan brew]

I have created a budget document to record and calculate for the next 10 years.

I would only like for the fiscal year I select from my drop down menu to display.

I have a Macro to delete rows depending on the selection from a drop down menu.

It works fine but i am unable to add multiple deletions depending on my selection.

If i choose 2017 / 2018 i would like columns removed.

but if i choose 2018 / 2019 i would like other columns removed. and so on.

here is the basic program i am using.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Column = 4 And Target.Row = 13 And Target.Value = "2017 / 2018" Then

        Application.Columns("M:BV").Select

        Application.Selection.EntireColumn.Hidden = True

    Else

        Application.Columns("M:BV").Select

        Application.Selection.EntireColumn.Hidden = False

    End If

End Sub

[#2]

Through much searching and playing around i found a way to complete my task.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim myRng As Range
Dim strCase As String


Set myRng = Me.Range("D13")

If Intersect(myRng, Target) Is Nothing Then Exit Sub

strCase = myRng.Value

Application.ScreenUpdating = False

Range("8:22").EntireColumn.Hidden = False
Select Case LCase(strCase)
Case "2017-2018"
Range("M:BW").EntireColumn.Hidden = True
Case "2018-2019"
Range("H:L,T:BW").EntireColumn.Hidden = True
Case "2019-2020"
Range("H:S,AA:BW").EntireColumn.Hidden = True
Case "2020-2021"
Range("H:Z,AH:BW").EntireColumn.Hidden = True
Case "2021-2022"
Range("H:AG,AO:BW").EntireColumn.Hidden = True
Case "2022-2023"
Range("H:AN,AV:BW").EntireColumn.Hidden = True
Case "2023-2024"
Range("H:AU,BC:BW").EntireColumn.Hidden = True
Case "2024-2025"
Range("H:BB,BJ:BW").EntireColumn.Hidden = True
Case "2025-2026"
Range("H:BI,BQ:BW").EntireColumn.Hidden = True
Case "2026-2027"
Range("H:BP").EntireColumn.Hidden = True

Case Else
Range("M:BW").EntireColumn.Hidden = False
End Select

End Sub