delete rows

i would like to run a macro that does the following.
start at row 2
if L2 and m2 and n2 are all zeros then delete row
if not then go to next row and do the same check.

the macro should end once the "L" field is blank.

let me know if more info is need

thanks

--

Dd wrote:
i would like to run a macro that does the following.
start at row 2


It's easier to start at the end and work back.

Sub DeleteRows()
Dim lRow as Long
lRow = ActiveSheet.UsedRange.SpecialCells(xlLastCell).Row
Do Until lRow = 1
If Cells(lRow, "L")=0 And Cells(lRow, "M")=0 And Cells(lRow, "N")=0
Then
Rows(lRow).Delete
End If
lRow = lRow-1
Loop
End Sub

An alternative would be to use AutoFilter and delete all the visible
rows.

Bill Manville
MVP - Microsoft Excel, Oxford, England
No email replies please - respond to newsgroup