Darran

Sub Hide_Zeros_Rows()
'using set column
Dim RngCol As Range
Dim i As Range
Set RngCol = Range("B1", Range("B" & Rows.Count). _
End(xlUp).Address)
For Each i In RngCol
If i.Value = "0" Then _
i.EntireRow.Hidden = True
Next i
End Sub

Hides rows if value is 0 in Column B.

Gord Dibben Excel MVP XL2002

On 13 Sep 2003 18:38:55 -0700, (Darran Caputo) wrote:

Is there a way to hide rows in a worksheet based on a value in the row?

In other words:


IF A1 0 then "Hide Row"