Hi Ian,

Am Tue, 1 May 2012 16:09:38 -0700 (PDT) schrieb pcorcele:

Thanks very much..it worked very well...actually much to well....Can
you tell me how to modify the code in order that the delete would only
take place is the VALUE is zero and not delete is the cell is BLANK

a blank cell has the value 0
Try:
Sub DeleteRows()
Dim LRow As Long
Dim i As Long

LRow = Cells(Rows.Count, 3).End(xlUp).Row
For i = LRow To 1 Step -1
If Cells(i, 3) = 0 And Len(Cells(i, 3)) = 1 Then
Rows(i).Delete
End If
Next
End Sub


Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2