I need to create Data Validation based on ranges (January-December, AllMonths, Quarter1-Quarter4,AllQuarter) and when I select one of the months or quarters, it would hide other columns. Any VBA code would help. Below is what I have but it isn't working.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column <> 1 Then Exit Sub
Application.EnableEvents = False
Select Case Target.Value
Case "January"
ActiveSheet.Range("A:B").EntireColumn.Hidden = False
ActiveSheet.Range("C:E").EntireColumn.Hidden = False
ActiveSheet.Range("F:AX").EntireColumn.Hidden = True
Case "February"
ActiveSheet.Range("F:N").EntireColumn.Hidden = True
ActiveSheet.Range("G:G").EntireColumn.Hidden = False
ActiveSheet.Range("H:H").EntireColumn.Hidden = False
ActiveSheet.Range("K:K").EntireColumn.Hidden = False
Case "March"
ActiveSheet.Range("F:N").EntireColumn.Hidden = True
ActiveSheet.Range("I:I").EntireColumn.Hidden = False
ActiveSheet.Range("L:L").EntireColumn.Hidden = False
ActiveSheet.Range("N:N").EntireColumn.Hidden = False
End Select
Application.EnableEvents = True

End Sub