Simplifying VB code

Originally Posted by odggi

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

Count which there are most of, and do A:AF of that (false) in bulk, then do the others.

On a sheet you can CTRL+Select other columns, try recording a macro and doing that for the other (true) half.

hth
---