Deleting Rows

[STEVEB]

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!

[Dave Peterson]

on error resume next
activesheet.range("a:a").cells.specialcells(xlcelltypeblanks).entirerow.delete
on error goto 0

STEVEB wrote:
>
> 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

--

Dave Peterson

[STEVEB]

Thanks Dave!

That worked perfect!!!

[Tom Ogilvy]

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

--
Regards,
Tom Ogilvy


"STEVEB" <[email protected]> wrote in
message news:[email protected]...
>
> 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
>

[STEVEB]

Thanks Tom,

I appreciate your help