hide certain columns in all sheets

[exelerator]

I have multiple (80 or so) sheets were I what to hide certain columns say I:N on all sheets not just the active sheet with out a very length code! Can any1 help.

Sub hidealltest()
Dim ws As Worksheet
For Each ws In Sheets
Columns("I:N").Select
Selection.EntireColumn.Hidden = True
Next
End Sub

It only works on active sheet but highlights all columns to be hidden in sheet 2 and 3 but fails to hide them..

 

[exelerator]

I posted in wrong place by mistake then it got moved after I made a new 1 sorry

 

[valis]

merging duplicate, please do not create duplicate threads for the same issue.

thanks,

v