All three columns in the same row have to contain zero?

--
Regards,
Tom Ogilvy

"Duncan J" wrote in message
...
While waiting for my post to appear I came up with this and it works,
however, you could boot up a commadore computer faster than this macro will
run
With Range("A1:E50000")
.AutoFilter
.AutoFilter 2, 0
.AutoFilter 4, 0
.AutoFilter 5, 0
If .Columns(1).SpecialCells(xlVisible).Count 1 Then
.Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlVisible).Delete _
Shift:=xlUp
End If
.AutoFilter
End With