Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$5" Then
Dim b13val As String
b13val = Target.Value
If b13val = "1" Then
Sheets("INPUT").Range("E:G").EntireColumn.Hidden = True
ElseIf b13val = "2" Or b13val = "3" Or b13val = "4"...