I am using this code to hide columns on multiple sheets:

Sheets(Array("04-329", "04-350", "05-001", "05-353", "05-354",
"06-011", "06-012", _
"06-013")).Select
Sheets("04-329").Activate

Range("H:H,L:U").Select
Range("S1").Activate
Selection.EntireColumn.Hidden = True

It works on the first sheet, but only selects the columns in the
remainder and does not hide them. What do I need to change to hide the
selection on all the sheets. TIA

Greg

I think I'd just cycle through those worksheets

dim wks as worksheet
for each wks in worksheets(Array("04-329", "04-350", "05-001", "05-353", _
"05-354", "06-011", "06-012", "06-013"))

wks.range("H:H,L:U").EntireColumn.Hidden = True
next wks

GregR wrote:

I am using this code to hide columns on multiple sheets:

Sheets(Array("04-329", "04-350", "05-001", "05-353", "05-354",
"06-011", "06-012", _
"06-013")).Select
Sheets("04-329").Activate

Range("H:H,L:U").Select
Range("S1").Activate
Selection.EntireColumn.Hidden = True

It works on the first sheet, but only selects the columns in the
remainder and does not hide them. What do I need to change to hide the
selection on all the sheets. TIA

Greg

--

Dave Peterson

Dave, thank you, got it working with:

Sheets(Array("04-329", "04-350", "05-001", "05-353", "05-354", _
"06-011", "06-012", "06-013")).Select
For Each Sht In ActiveWindow.SelectedSheets
Sht.Range("H1,L1:U1").EntireColumn.Hidden = True
Next Sht

Greg

to prevent problems if you then edit a cell, you might want

Sheets(Array("04-329", "04-350", "05-001", "05-353", "05-354", _
"06-011", "06-012", "06-013")).Select
For Each Sht In ActiveWindow.SelectedSheets
Sht.Range("H1,L1:U1").EntireColumn.Hidden = True
Next Sht
sht.Select

to ungroup the sheets.

--
Regards,
Tom Ogilvy

"GregR" wrote in message
oups.com...
Dave, thank you, got it working with:

Sheets(Array("04-329", "04-350", "05-001", "05-353", "05-354", _
"06-011", "06-012", "06-013")).Select
For Each Sht In ActiveWindow.SelectedSheets
Sht.Range("H1,L1:U1").EntireColumn.Hidden = True
Next Sht

Greg

Tom, good suggestion, thanks

Greg