One way:

Public Sub DeleteRowsWithTextInColumnA()
On Error Resume Next 'in case no text
Columns(1).SpecialCells( _
xlCellTypeConstants, xlTextValues).EntireRow.Delete
On Error GoTo 0
End Sub


In article ,
"D Hafer - TFE" wrote:

I need to create a macro to delete all rows where column A has text. Can
anyone tell me any easy way to do this?