Simplifying VB code

Originally Posted by odggi

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

Application.ScreenUpdating = False 
Range("A:AZ").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
Application.ScreenUpdating = True

would not disturb the natives so much and you would not need to amend the first setting when things change (except to set it to the most-right column).
---