Hide Zero Rows Macro

[VH5150]

I need the code for a macro that looks across a worksheet and hides the rows if they have all zeros (or add to zero). My sheet has data from rows 21:210. I do not want the macro to hide blank rows, just rows with all zeros. can anyone help?

 

[just_jon]

Do you have a fixed number of columns to deal with?

Would you condider a helper column and the use of Autofilter, or do you need code?

 

[VH5150]

I need code. The worksheet spans columns A-K. Thanks.

 

[just_jon]

See if this does well.

<font face=Courier New><SPAN style="color:#00007F">Sub</SPAN> NoSeeEm()
<SPAN style="color:#00007F">Dim</SPAN> c <SPAN style="color:#00007F">As</SPAN> Range
Application.ScreenUpdating = <SPAN style="color:#00007F">False</SPAN>
<SPAN style="color:#00007F">With</SPAN> Application.WorksheetFunction
    <SPAN style="color:#00007F">For</SPAN> <SPAN style="color:#00007F">Each</SPAN> c <SPAN style="color:#00007F">In</SPAN> Range("a21:a210")
        <SPAN style="color:#00007F">If</SPAN> .CountIf(Range("A" & c.Row & ":K" & c.Row), 0) = 11 <SPAN style="color:#00007F">Then</SPAN>
            c.EntireRow.Hidden = <SPAN style="color:#00007F">True</SPAN>
        <SPAN style="color:#00007F">Else</SPAN>
            c.EntireRow.Hidden = <SPAN style="color:#00007F">False</SPAN>
        <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
    <SPAN style="color:#00007F">Next</SPAN> c
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN>
Application.ScreenUpdating = <SPAN style="color:#00007F">True</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>