Q:

Delete a row if cell contains text

I have used this code to delete all rows which are blank:
Sub DelBlankRows()
    Columns("L:L").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

Now I need to delete all rows that are not blank. Like if a cell in Column L:L contains any text or number then it deletes the entire row.

A:

One way to do it is to get rid of all cells that have constants or formulas which should cover all cells with stuff in them.
Gordon
Sub DelNonBlankRows()
    Columns("L:L").SpecialCells(xlCellTypeConstants).EntireRow.Delete
    Columns("L:L").SpecialCells(xlCellTypeFormulas).EntireRow.Delete
End Sub

