One way

Sub Macro1()
'
Dim cell As Range

For Each cell In Range("A2":A6000")
If cell.Value = "" Then
cell.EntireRow.Delete
End If
Next cell
End Sub

"Chris Hankin" wrote in message
...
Hello,

Could someone please advise on a macro code that would do the following:

If there is a blank cell in column A, then delete the entire row . I
need this to loop around from A2:A60000.

Any help would be greatly appreciated.

Thanks,

Longbow :-)

Live Long and Prosper :)

*** Sent via Developersdex http://www.developersdex.com ***