Dim rng as Range
On Error Resume Next
set rng = Cells.SpecialCells(xlConstants,xlTextValues)
rng.EntireRow.Delete
set rng = Cells.SpecialCells(xlForulas,xlTextValues)
rng.EntireRow.Delete
On Error goto 0
--
Regards,
Tom Ogilvy

"fred" wrote in message
...
I'm trying to remove all rows that contain letters, using a macro. I hope
this is easily possible. Thanks