For Each statement

[jacqui]

The following code only hides the columns for the first
sheet even though all sheets in the array aSheets are
selected. Do I need to activate each sheet to get it to
work? If so how would I code the For Each statement. Any
help is appreciated.
Many thanks
Jacqui

ThisWorkbook.Sheets(aSheets).Select
Range("A1").Select
iCCount = ActiveSheet.Range("IV7").End
(xlToLeft).Column

For i = 2 To iCCount
Selection.Offset(0, i).EntireColumn.Hidden
= False
Next

 

[jacqui]

I've resolved this! But it there any news on my earlier
post, regarding the calculation of minus working days for
a timetable.