My simple tests show no problems. What are you seeing??

Try running the macro on a completely empty worksheet. The indicated rows
should loose visiblity.
--
Gary''s Student - gsnu200836


"Mike" wrote:

Thanks, unfortunately it doesn't seem to work and actually disables the
entire Macro? Any other possible suggestions?

Mike

"Gary''s Student" wrote:

Try:

Sub HidePurchaseZero()
Dim r As Range
On Error Resume Next
Set r = Union(Range("C92:C115"), Range("C123:C124"), Range("C132"))
r.EntireRow.Hidden = False
For Each rr In r
If WorksheetFunction.Sum(rr.EntireRow) = 0 Then
rr.EntireRow.Hidden = True
End If
Next
End Sub
--
Gary''s Student - gsnu200836


"Mike" wrote:

I would like to revise my Macro (below) so that I include additonal rows to
hide if the value is zero sum. I don't know how to add rows that are not
consecutive, specifically, how do I add the following rows to my Macro :
C123, C124 & C132?

Sub HidePurchaseZero()

On Error Resume Next
With Range("C92:C115")
.EntireRow.Hidden = False
For i = 1 To .Rows.Count
If WorksheetFunction.Sum(.Rows(i)) = 0 Then
.Rows(i).EntireRow.Hidden = True
End If
Next i
End With


End Sub



Thanks in advance for your help