# Code to multiple sheets

#### Grimm127

##### Board Regular
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.

VBA Code:
``````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``````

### Excel Facts

Why does 9 mean SUM in SUBTOTAL?
It is because Sum is the 9th alphabetically in Average, Count, CountA, Max, Min, Product, StDev.S, StDev.P, Sum, VAR.S, VAR.P.

#### Fluff

##### MrExcel MVP, Moderator
You need to qualify the cells & columns with the worksheet, like
VBA Code:
``````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

##### Board Regular
PERFECT! Thank you!

#### Fluff

##### MrExcel MVP, Moderator
You're welcome & thanks for the feedback.

Replies
3
Views
173
Replies
5
Views
107
Replies
3
Views
153
Replies
10
Views
40
Replies
1
Views
124

1,130,033
Messages
5,639,661
Members
417,104
Latest member
Nelsini

### We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.

### Which adblocker are you using?

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

### Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

### Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back