macro to hide rows in spread sheets that have zero in all columns

hi i am trying to see if there is a macro that can hide rows in spread sheets that have zero in all columns? for each tab in an excel workbook

anyone have a macro for this?

i tried this but if gives me a break in code erro on the If c.Value = "0" Then line

Originally Posted by marreco

Try this

Sub HideBlankRows()
Dim Last As Long
Dim Rng, c As Range
Last = Cells(Rows.Count, "A").End(xlUp).Row
Set Rng = Range("A2:XFD" & Last)
Application.ScreenUpdating = False
For Each c In Rng
If c.Value = "0" Then
c.EntireRow.Hidden = True
End If
Next c
Application.ScreenUpdating = True
End Sub

Please attach a sample and desired output. Before and after the code sheets.