sorry, please disregard my prior comment. your macro did not delete the row
with a blank cell in column A.

"nc" wrote:

Sorry, didn't work. Deleted any rows.

"Shane Devenshire" wrote:

And yet another variations

With Selection
If Not IsNumeric(Cells(.Row, 1)) Then .EntireRow.Delete
End With

--
If this helps, please click the Yes button.

Cheers,
Shane Devenshire


"nc" wrote:

Sub test()

Selection.Rows.EntireRow.Delete

End Sub

Can you help ammend the above code to stop the row (selection) being deleted
if the cell in column A has a number.