Hide columns in all worksheets in workbook

[Vicky9063]

Hi guys,
I have the following code which i am trying to use to hide a few of the same columns in each sheet of my workbook. However it only hides the columns in the activesheet. Is there something that I am missing?? THanks!

Sub UnhideWorksheetsktoAT()

' UnhideWorksheetsktoAT Macro
' Testing - use to open up worksheets where calcs are
'
Dim wsSheet As Worksheet
    For Each wsSheet In Worksheets
    Columns("m:Av").Select
    Selection.EntireColumn.Hidden = True
    Next wsSheet
End Sub

 

[VoG]

Try

Sub UnhideWorksheetsktoAT()

' UnhideWorksheetsktoAT Macro
' Testing - use to open up worksheets where calcs are
'
Dim wsSheet As Worksheet
    For Each wsSheet In Worksheets
        wsSheet.Columns("m:Av").Hidden = True
    Next wsSheet
End Sub

 

[WaterGypsy]

you need to activate each worksheet in turn

 

[Vicky9063]

Thanks very much VoG it worked! Sorry for the late reply I havent been getting my email notifications..
cheers
vb