columns(1).SpecialCells(xlConstants,xlNumbers).EntireRow.Delete
columns(1).SpecialCells(xlConstants,xlBlanks).EntireRow.Delete

--
Regards,
Tom Ogilvy

"Roger" <rb10@canada.com> wrote in message
news:OGoEL5qTFHA.3244@TK2MSFTNGP15.phx.gbl...
> 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
>
>