Hi,

Try this but note empty cells are treated as numeric. Post back and tell us
what should happen to empty cells

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

Mike

"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.