No tested it, just wrote it, may need a slight change

For x = 5000 to 1 step -1
If sheet1.cells(x, 1).value = "L" then
rows(x).delete
rows(x -1).delete
end if
next x



--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200605/1