marcusja2002
Board Regular
- Joined
- Apr 27, 2010
- Messages
- 107
I want to hide multiple columns depending on the input in cell A1. It can be Anything from Jan-Dec. Once it checks the contents I need to hide multiple columns that will change depending on the cell.
This is what I have so far;
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1").Value = "January" Then
Columns("K").EntireColumn.Hidden = True
Columns("L").EntireColumn.Hidden = True
Columns("M").EntireColumn.Hidden = True
Columns("N").EntireColumn.Hidden = True
Columns("O").EntireColumn.Hidden = True
Columns("P").EntireColumn.Hidden = True
Columns("Q").EntireColumn.Hidden = True
Columns("R").EntireColumn.Hidden = True
Columns("S").EntireColumn.Hidden = True
Columns("T").EntireColumn.Hidden = True
Columns("U").EntireColumn.Hidden = True
Else
Columns("K").EntireColumn.Hidden = False
Columns("L").EntireColumn.Hidden = False
Columns("M").EntireColumn.Hidden = False
Columns("N").EntireColumn.Hidden = False
Columns("O").EntireColumn.Hidden = False
Columns("P").EntireColumn.Hidden = False
Columns("Q").EntireColumn.Hidden = False
Columns("R").EntireColumn.Hidden = False
Columns("S").EntireColumn.Hidden = False
Columns("T").EntireColumn.Hidden = False
Columns("U").EntireColumn.Hidden = False
End If
End Sub
Works great for January, but I can't figure out how to add the other 11 months.
Thanks in advance for your help.
This is what I have so far;
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1").Value = "January" Then
Columns("K").EntireColumn.Hidden = True
Columns("L").EntireColumn.Hidden = True
Columns("M").EntireColumn.Hidden = True
Columns("N").EntireColumn.Hidden = True
Columns("O").EntireColumn.Hidden = True
Columns("P").EntireColumn.Hidden = True
Columns("Q").EntireColumn.Hidden = True
Columns("R").EntireColumn.Hidden = True
Columns("S").EntireColumn.Hidden = True
Columns("T").EntireColumn.Hidden = True
Columns("U").EntireColumn.Hidden = True
Else
Columns("K").EntireColumn.Hidden = False
Columns("L").EntireColumn.Hidden = False
Columns("M").EntireColumn.Hidden = False
Columns("N").EntireColumn.Hidden = False
Columns("O").EntireColumn.Hidden = False
Columns("P").EntireColumn.Hidden = False
Columns("Q").EntireColumn.Hidden = False
Columns("R").EntireColumn.Hidden = False
Columns("S").EntireColumn.Hidden = False
Columns("T").EntireColumn.Hidden = False
Columns("U").EntireColumn.Hidden = False
End If
End Sub
Works great for January, but I can't figure out how to add the other 11 months.
Thanks in advance for your help.