Sub DeleteRows_2Params()
'Bob Phillips Aug. 26, 2006
Dim iLastRow As Long
Dim I As Long

iLastRow = Cells(Rows.Count, "H").End(xlUp).Row
For I = iLastRow To 1 Step -1
If Cells(I, "H").Value = "0" Or _
Cells(I, "H").Value = "0.00" Then
Rows(I).Delete
End If
Next I

End Sub


Gord...........................no thanks on the carpet.

On Tue, 5 Aug 2008 14:09:01 -0700, Koz
wrote:

I was thinking of a way to do either 0 or 0.00. As far as the carpeting,
pricing would be from $5-$7.50 per sq. yard.