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
---

Hi JR,

I've ended up with:

Range("A:A,C:F,I:L,P:V,X:X,Z:Z,AB:AE,AG:AG,AJ:AK,AN:AN....").EntireColumn.Hidden = False
Range("B:B,G:H,M:O,W:W,Y:Y,AA:AA,AF:AF,AH:AI,AL:AM...").EntireColumn.Hidden = True

This has reduced about 40 lines of coding to just 2, BRILLIANT.
You've been a great help, thanks, and thank you all for your contribution.

Odggi