Hide columns automatically using VBA

[Prish]

Hi,

I have the following code to hide columns, however if someone inserts a column before D, I want the hidden columns to shift as well, i.e Hide columns E:BA if one row was inserted.

Columns("D:AZ").Hidden = True

 

[daycartes]

I'm no genius at this but could you try referring to the column header such that if column header = x then hide the next number of columns?

 

[Prish]

I'm no genius at this but could you try referring to the column header such that if column header = x then hide the next number of columns?

Column header changes all the time.

 

[Rick Rothstein]

Select all of Columns D:AZ and give it a Defined Name (after selecting them, click in the Name Box, located to the left of the Formula Bar, and type a valid name) such as ColumnsToHide, then use this code line in place of the one you posted...

Range("ColumnsToHide").EntireColumn.Hidden = True

If anyone inserts or deletes columns in front of the range you named, the reference for that Defined Name will automatically update.

 

[Prish]

Select all of Columns D:AZ and give it a Defined Name (after selecting them, click in the Name Box, located to the left of the Formula Bar, and type a valid name) such as ColumnsToHide, then use this code line in place of the one you posted...

Range("ColumnsToHide").EntireColumn.Hidden = True

If anyone inserts or deletes columns in front of the range you named, the reference for that Defined Name will automatically update.

Thanks, works perfectly.