Option Explicit

Sub Koz()

Dim myLastRow As Long
Dim r As Long
Dim c As Range

myLastRow = ActiveSheet.Cells(10000, 1).End(xlUp).Row

For r = myLastRow To 1 Step -1
Set c = ActiveSheet.Range("a" & r)
If c.Value = 0 Then
c.EntireRow.Delete
End If
Next r

End Sub
==================
this is a macro - you can't do what you want with formulas without
having a helper column and either auto filtering or manually deleting
rows yourself. in this macro, if column A is zero, the entire row
will be deleted.
next time don't put the whole question in the header..... it's
considered bad manners. if this macro doesn't do what you want, post
back with details & i can amend it.
hope this helps
:)
susan



On Jul 29, 2:15*pm, Koz wrote: