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)
*** Sent via Developersdex
http://www.developersdex.com ***