Ues a cells.find to find the information then instead of select the
delete at the end of the
cells.find (what:="your term").entirerow.delete

That will stop the program from looking at every row.

Keith
www.kjtfs.co

--
Message posted from http://www.ExcelForum.com