Code to multiple sheets

[Grimm127]

Hi All,
Can you please take a gander and see what am I doing wrong here? Its just a code to hide columns based on a row that has "X" in place.
It works on the active sheet but doesn't go to the next ws. THanks in advance.

Sub TEST_TEST()
Dim ws As Variant, Xrow As Long, LCol As Long

Application.ScreenUpdating = True

For Each ws In Worksheets(Array("Income Statement", "OCC"))

Xrow = 5
LCol = ws.Cells(4, Columns.Count).End(xlToLeft).Column

    With ws
        For x = 1 To LCol
            If Cells(Xrow, x) <> "X" Then
                Columns(x).Hidden = True
            Else
                Columns(x).Hidden = False
            End If
        Next x

End With

Next ws


Application.ScreenUpdating = False

 

[Fluff]

You need to qualify the cells & columns with the worksheet, like

Sub TEST_TEST()
Dim ws As Variant, Xrow As Long, LCol As Long

Application.ScreenUpdating = True

For Each ws In Worksheets(Array("Income Statement", "OCC"))

Xrow = 5
LCol = ws.Cells(4, Columns.Count).End(xlToLeft).Column

    With ws
        For x = 1 To LCol
            If ws.Cells(Xrow, x) <> "X" Then
                ws.Columns(x).Hidden = True
            Else
                ws.Columns(x).Hidden = False
            End If
        Next x

End With

Next ws


Application.ScreenUpdating = False

 

[Grimm127]

PERFECT! Thank you!

 

[Fluff]

You're welcome & thanks for the feedback.