Hi Karen,

Try:

'=============
Public Sub Tester()
With ActiveCell.EntireRow
If IsEmpty(.Cells(1)) Then
.Delete
End If
End With
End Sub
'<<=============


---
Regards,
Norman



"Karen McKenzie" wrote in message
...
I want to be able to run a macro which will delete the row selected if
column
A is blank. If it is not blank then message box "Unable to delete this
row!"
I've looked through code already available but can't find anything that
does
this.
Could someone please help.