Confused with VBA looping through Worksheets

[cedricthecat]

Hi folks

I have this macro, which works fine when set to hide Worksheets (hides all sheets except "Overview")

Sub HideSheets()
Dim wsSheet As Worksheet
    For Each wsSheet In Worksheets
    If wsSheet.Name <> "Overview" Then
        wsSheet.Visible = False
       End If
     Next wsSheet
End Sub

However, I am trying to adapt this to hide Columns in all sheets except "Overview" (as below) but instead it only hides the specified Columns in "Overview"!! Can someone tell me what I am doing wrong?!

Sub HideColumns()
Dim wsSheet As Worksheet
    For Each wsSheet In Worksheets
    If wsSheet.Name <> "Overview" Then
        Columns("A:M").Select
        Selection.EntireColumn.Hidden = True
       End If
     Next wsSheet
End Sub

 

[njimack]

Sub HideColumns()
Dim wsSheet As Worksheet
    For Each wsSheet In Worksheets
    If wsSheet.Name <> "Overview" Then [COLOR="Red"]wsSheet.Columns("A:M").Hidden = True[/COLOR]
     Next wsSheet
End Sub

 

[cedricthecat]

That's brilliant! Thanks Neil!

 

[saltkev]

Dim wsSheet As Worksheet
For Each wsSheet In Worksheets
If wsSheet.Name <> "Overview" Then

wsSheet.Activate

ActiveSheet.Columns("A:M").Select

Selection.EntireColumn.Hidden = True
End If
Next wsSheet

 

[cedricthecat]

Thanks Saltkev - I used Neil's solution to the original problem, but yours worked nicely on a different Workbook which had a similar, but not quite the same, issue!