Unhide next hidden column VBA

[lewdow]

Hi,

I have one column for each month of the year, and all upcoming months are hidden.

Each month I then go in and unhide the hidden columns, and re-hide everything but the next month:

e.g. in March

Jan Feb (Mar Apr May June July................)

Unhide all hidden columns:

Jan Feb Mar Apr May June July................

Re Hide the rest of the year:

Jan Feb Mar (Apr May June July................)

Is there a way to do this via VBA instead of doing it each and every month?

It has to be done on multiple sheets which is why it is so time consuming, however the columns are identical on each sheet.

Any ideas?

Thanks

Lewis

 

[Andrew Poulsom]

If you Group the sheets you can do them all at once:

http://office.microsoft.com/en-us/excel/HP052024921033.aspx

Remember to ungroup them when done.

 

[SteveO59L]

Perhaps

Select a cell to the left of a column you want to unhide

ActiveCell.Offset(0, 1).EntireColumn.Hidden = False