Hiding specific column on all worksheets

[Scott Steiner]

Hi,

I want to hide column A of all my worksheets. When I do this by hand
then everything is ok i.e. I select all worksheets and hide column A. So
I recorded a macro with these steps, here's the produced code:

Sub Macro2()
Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
Sheets("Sheet1").Activate
Columns("A:A").Select
Selection.EntireColumn.Hidden = True
Sheets("Sheet1").Select
End Sub

However, when I now run the above macro, only column A of the first
sheet is hidden. What is wrong with the code?

Thanks.

 

[Bob Phillips]

Sub Macro2()
Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select
Columns("A:A").Hidden = True
Sheets("Sheet1").Select
End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Shailesh Shah]

Hi Scott,
Try this,

Sub Macro3()
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Worksheets
sht.Columns("A").Hidden = True
Next
End Sub

Regards,
Shah Shailesh
http://members.lycos.co.uk/shahweb/
(Excel Add-ins)