Hello All,

How do I go about simplifying the VB code below:

Private Sub sTest()
Application.ScreenUpdating = False
Columns("A").EntireColumn.Hidden = False
Columns("B").EntireColumn.Hidden = True
Columns("C:F").EntireColumn.Hidden = False
Columns("G:H").EntireColumn.Hidden = True
Columns("I:L").EntireColumn.Hidden = False
Columns("M:O").EntireColumn.Hidden = True
Columns("P:V").EntireColumn.Hidden = False
Columns("W").EntireColumn.Hidden = True
Columns("X").EntireColumn.Hidden = False
Columns("Y").EntireColumn.Hidden = True
Columns("Z").EntireColumn.Hidden = False
Columns("AA").EntireColumn.Hidden = True
Columns("AB:AF").EntireColumn.Hidden = False
and on and on and on……….
End Sub

Thanking you all in advance
Odggi