Hide Rows Across Mulitple Sheets

  • Thread starter Thread starter Jason Penny
  • Start date Start date
J

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.
 
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.
 
Back
Top