sub n()
dim c as range
set rng = Range("e1",Cells(rows.count,"e").end(xlUp))
for each c in rng
if c.value="Account" or c.value="New" then
c.entirerow.delete
end if
next
end sub


hth
myle

--
Myle
-----------------------------------------------------------------------
Myles's Profile: http://www.excelforum.com/member.php...fo&userid=2874
View this thread: http://www.excelforum.com/showthread.php?threadid=57418