Thread: delete rows
View Single Post
  #2   Report Post  
Bill Manville
 
Posts: n/a
Default

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