Removing all rows that contain letters

[Guest]

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

 

[Tom Ogilvy]

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

 

[Tom Ogilvy]

here is a fixed version:

Sub DeleteRowsWithText()
Dim rng As Range
On Error Resume Next
With ActiveSheet
Set rng = .Cells.SpecialCells(xlConstants, xlTextValues)
Intersect(rng.EntireRow, .Rows).Delete
Set rng = .Cells.SpecialCells(xlFormulas, xlTextValues)
Intersect(rng.EntireRow, .Rows).Delete
End With
On Error GoTo 0
End Sub