Hi Jerek

Thanks for trying to help, unfortunately it didn't work. For some reason, it
did not incorporate the additonal rows I needed for it to incorporate, any
other ideas?

- Mike

"Jarek Kujawa" wrote:

try:

With Range("C92:C115, C123, C124, C132")


On 6 Mar, 20:50, 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