columns(1).SpecialCells(xlConstants,xlNumbers).Ent ireRow.Delete
columns(1).SpecialCells(xlConstants,xlBlanks).Enti reRow.Delete

--
Regards,
Tom Ogilvy

"Roger" wrote in message
...
I would like to test the following which are in about 15 rows

if cell contains any kind of text then go to next row as don't want to
delete rows
with text in them
exit if
else - this covers blanks cells and cells with numbers in them
delete row

Repeat until done about 15 times

Any suggestions would be greatly appreciated.

Roger