Hi
If Application.Worksheetfunctions.Counta(Range("A:A") ) = 0 then
Selection.EntireRow.Delete
Else
Msgbox "Unable to Delete this Row!"
End if

If your column A contains a formula which returns empty text "" then
that will also be counted, even though the cell looks empty, so just
be careful with that.
regards
Paul

On Apr 18, 9:36 am, Karen McKenzie
wrote:
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.