Insert column and hide columns

[Rob]

I need to hide a number of columns in a sheet and have used Columns
("C:C").EntireColumn.Hidden = True. This is fine but I have 15 columns to
hide and having 15 rows of code seems excessive. Is there a way to declare
the columns and thus apply in less rows of code?

Also, have similar issue with inserting where to say I want to insert 3
rows, I have 3 rows of code.

Thanks, Rob

 

[Gary Keramidas]

you could try something like this

Sub hide_columns()
Dim arr As Variant
Dim i As Long
arr = Array("c:c", "e:e", "h:h", "m:m")
For i = LBound(arr) To UBound(arr)
Columns(arr(i)).EntireColumn.Hidden = True
Next
End Sub

 

[Rob]

Thanks Gary, Am I correct to think that inserting rows or columns would
work the same way?

Regards, Rob

 

[Francois via OfficeKB.com]

I need to hide a number of columns in a sheet and have used Columns
("C:C").EntireColumn.Hidden = True. This is fine but I have 15 columns to
hide and having 15 rows of code seems excessive. Is there a way to declare
the columns and thus apply in less rows of code?

Also, have similar issue with inserting where to say I want to insert 3
rows, I have 3 rows of code.

Thanks, Rob
Or:-
("C:Z").EntireColumn.Hidden = True.

 

[Rob]

Francois, thanks however the columns aren't concurrent, eg I want to hide c,
e, m, j, x

Regards, Rob

 

[Patrick Molloy]

Range("C:C,F:H,J:J,P:T").EntireColumn.Hidden = True

Francois, thanks however the columns aren't concurrent, eg I want to hide c,
e, m, j, x

Regards, Rob

 

[Rob]

Thanks Patrick.

Range("C:C,F:H,J:J,P:T").EntireColumn.Hidden = True