This worked for me in Excel 2000

It also insures that non-zero rows are visible.

==============================
Dim lrw As Long, cel As Range, rng As Range

' find last row in Column B
lrw = Cells(Rows.Count, "B").End(xlUp).Row

' define range to search
Set rng = Range(Cells(1, 2), Cells(lrw, 2))

' loop through range
For Each cel In rng
If cel = 0 Then
Rows(cel.Row).EntireRow.Hidden = True
Else
Rows(cel.Row).AutoFit
End If
Next
=======================================

--
steveB

Remove "AYN" from email to respond
"jacksonz" wrote in
message ...

I am fairly new to using VBA, but it seems like I should be able to get
this to work. Unfortunatly I cannot. Here's the problem:

Let's say I have a range (B1:B10). Some of the values = 0. Others are
greater than zero. What I want my macro to do is hide the row if cell's
value is zero. So if B1 = 0 then hide row 1.

Obviously I could write an if then for each row, but my actualy project
has hundreds of rows. Besides, I want a cleaner code. I thought I
could do it...maybe someone could steer me in the right direction.

Thanks


--
jacksonz
------------------------------------------------------------------------
jacksonz's Profile:
http://www.excelforum.com/member.php...o&userid=13728
View this thread: http://www.excelforum.com/showthread...hreadid=387198