I have a couple of worksheets in the same workbook who needs to show
columns R:T and row 15 if the cell AE1 changes in 1 or 2 triggerd by a
formula by a dropdown box in the mainsheet (input). The following code
doesn't work. Why??

Sub DropDown_Change()

'hide or unhdide columns and row
Dim sh As Worksheet
For Each sh In Worksheets
If sh.Name < "input" Then
If sh.Range("Ae1").Value = 2 Then
Columns("P:R").Select
Selection.EntireColumn.Hidden = True
Rows("15:15").Select
Selection.EntireRow.Hidden = True

ElseIf sh.Range("Ae1").Value = 1 Then
Rows("15:15").Select
Selection.EntireRow.Hidden = False
Columns("p:r").Select
Selection.EntireColumn.Hidden = False
End If
End If
Next
End Sub