Hide Rows Across Mulitple Sheets

[Jason Penny]

Good Monday All: I have a workbook with 57 sheets which
are all identical. I need to hide the same columns on
sheets 15 to 30 when a button on the idex sheet is
pressed. All help is appreciated.

 

[Tom Ogilvy]

for i = 15 to 30
worksheets(i).Range("C:M")EntireColumn.Hidden = True
Next

 

[steve]

Jason,

There's probably an easier way, but this works:
[watch word wrap]

Sheets(Array(15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29,
30)).Select
Columns("E:G").EntireColumn.Hidden = True

or loop

Dim x As Integer
For x = 15 To 30
Sheets(x).Columns("E:G").EntireColumn.Hidden = True
Next

both are fast.