Suppress zero value rows?

[Casino]

Hi, I have a large linked spreadsheet that auto-fills each month. Each month, different rows have a zero total. How can I format the sheet so all of the zero total rows hide? Right now these sheets are multi-page. If I can suppress the rows with a zero total, it will print cleaner on 1 page, but it has to adapt each month to hide different rows.

Thanks!

[VBA Noob]

Format cell as 0;;

or

take a look at link under zero values

http://www.bettersolutions.com/excel...T710262222.htm

VBA Noob

[Casino]

Thanks for the reply (love your icon). Your solution hides the zero value, but it does not suppress, or hide the entire row. I need for the row to disappear completely when the total is zero. Any ideas?

Thanks again!

[VBA Noob]

Does this link help

http://www.excelforum.com/showthread.php?t=601612


VBA Noob

[Casino]

You are my hero!!! That worked! Now for the next question. I'm not a macro user, so hopefully this doesn't sound to stupid. Now that I have the code in the module (and I know it works when I click run), how do I automate this so I don't have to manually go into every sheet to run this?

Thanks!

[VBA Noob]

Not an expert on VBA but this seems to work

Sub Hide_rows()
Dim LastRow As Long
Dim Rng As Range
Dim Sht As Worksheet
Dim allwShts As Sheets
Set allwShts = Worksheets
Dim Asht As Worksheet
Set Asht = ActiveSheet
Application.ScreenUpdating = False
For Each Sht In allwShts
For i = 1 To allwShts.Count
Sheets(i).Select
LastRow = Sheets(i).Range("A65536").End(xlUp).Row ' << Change Col A to your Col
Set Rng = Sheets(i).Range("A1:A" & LastRow) ' << Change Col A to your col
For Each cell In Rng
If cell.Value = "0" Then
cell.EntireRow.Hidden = True
End If
Next cell
Next i
Next Sht
Asht.Select
Application.ScreenUpdating = True
End Sub

VBA Noob