Andy,


Here is my version thouge not tested.


Sub del_0()
Application.ScreenUpdating = False
Dim i As Long
Dim rng As Range
Worksheets("sheet1").Activate
Set rng = Worksheets("Sheet1").Cells(1, 1).CurrentRegion
For i = 7 To rng.Rows.Count
If rng(i, 2).Value = 0 And rng(i, 3).Value = 0 And rng(i, 4).Valu
= 0 And rng(i, 5).Value = 0 Then
rng(i, 2).EntireRow.Delete
i = i - 1
End If
Next i
End Sub


Charle

--
Message posted from http://www.ExcelForum.com