Sub DeleteRows()
On Error Resume Next
columns(1).Specialcells(xlBlanks).EntireRow.Delete
End sub

--
Regards,
Tom Ogilvy


"STEVEB" wrote in
message ...

Does anyone have any suggestions for a code that will look at column A
and if any cell is blank in column A then delete the entire row?

Any help would be greatly appreciated.

Thanks!


--
STEVEB
------------------------------------------------------------------------
STEVEB's Profile:
http://www.excelforum.com/member.php...fo&userid=1872
View this thread: http://www.excelforum.com/showthread...hreadid=491829