Hi,

I use the following code to hide the rows which add up to zero. But
the sheets is getting long, over 6000 rows, and it takes long to run
the macro.

Is there a quicker way?

Cheers,

Harold
-------------------------------------
Sub hide()

a = Range("z2").Value

For b = 3 To a

If Range("z" & b).Value = 0 Then
Rows(b).EntireRow.Hidden = True
Else
Rows(b).EntireRow.Hidden = False
End If

Next b

End Sub