Need macro to run on all sheets not just active.

[jwindholz2725]

Can anybody help please? I have a code that hides lines for me that = 0. (see below) But this only works on the active sheet. How can I make it run this code on all sheets?

Sub HideLines()
Application.ScreenUpdating = False
Dim c As Range
For Each c In Range("Q6:Q431")
If c.Value = 0 Then
Rows(c.Row).Hidden = True
Else
Rows(c.Row).Hidden = False
End If
Next c
Application.ScreenUpdating = True
ActiveSheet.ResetAllPageBreaks
With ActiveSheet.PageSetup
.Zoom = 100
End With
End Sub

 

[pboltonchina]

Try this

Sub HideLines()
Application.ScreenUpdating = False
Dim c As Range
 For Each ws In Sheets
        ws.Activate
For Each c In Range("Q6:Q431")
If c.Value = 0 Then
Rows(c.Row).Hidden = True
Else
Rows(c.Row).Hidden = False
End If
Next c
Application.ScreenUpdating = True
ActiveSheet.ResetAllPageBreaks
With ActiveSheet.PageSetup
.Zoom = 100
End With
Next ws
End Sub

 

[jwindholz2725]

You are a genius! That worked perfect. Thank You!!!

 

[jwindholz2725]

This worked great but I had one issue on my part. This should be ran on certain sheets but not all. Is there a way to put a range say tab "<" through tab ">"? Then I could run the code on just the tabs that needed it.

 

[pboltonchina]

You need to use an array for that