If you are doing this in code, the easiest way would be to do you
replacement of the certain words with "" and then put this line in th
code before doing the sort.

Range("A1:A10").SpecialCells(xlCellTypeBlanks).Ent ireRow.Delete

Replacing the A1:A10 with your range. The line above essientiall
deletes the entire row of anything with a blank cell in the A1:A1
range.



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