Remove all empty rows in a worksheet

[wrangler]

is there a way in VBA to remove all empty rows in a worksheet 'Sheet1'?

I maybe did not explained it Properly, But Please Refer to the Attched File, to Know Exactly what I need.
and I Really Appreciate your Help and Effort.

[Tom Ogilvy]

Assume if the cell in column A is empty, then the row should be removed

Dim rng as Range
On Error Resume Next
set rng = ActiveSheet.Columns(1).SpecialCells(xlBlanks)
On Error goto 0
if not rng is nothing then
rng.EntireRow.Delete
End if

--
Regards,
Tom Ogilvy


"wrangler" <[email protected]> wrote in
message news:[email protected]...
>
> *-is there a way in VBA to remove all empty rows in a worksheet
> 'Sheet1'?-*
>
>
> +-------------------------------------------------------------------+
> |Filename: Remove all empty rows in a worksheet.zip |
> |Download: http://www.excelforum.com/attachment.php?postid=4326 |
> +-------------------------------------------------------------------+
>
> --
> wrangler
> ------------------------------------------------------------------------
> wrangler's Profile:
http://www.excelforum.com/member.php...o&userid=31048
> View this thread: http://www.excelforum.com/showthread...hreadid=508980
>

[wrangler]

Assume if the cell in column A is empty, then the row should be removed

Dim rng as Range
On Error Resume Next
set rng = ActiveSheet.Columns(1).SpecialCells(xlBlanks)
On Error goto 0
if not rng is nothing then
rng.EntireRow.Delete
End if

--
Regards,
Tom Ogilvy


"wrangler" <[email protected]> wrote in
message news:[email protected]...
>
> *-is there a way in VBA to remove all empty rows in a worksheet
> 'Sheet1'?-*
>
>
> +-------------------------------------------------------------------+
> |Filename: Remove all empty rows in a worksheet.zip |
> |Download: http://www.excelforum.com/attachment.php?postid=4326 |
> +-------------------------------------------------------------------+
>
> --
> wrangler
> ------------------------------------------------------------------------
> wrangler's Profile:
http://www.excelforum.com/member.php...o&userid=31048
> View this thread: http://www.excelforum.com/showthread...hreadid=508980
>

Thank you for replying and I appreciate your effort, but your VBA dos not fit my Requirement, If you Please Refer to the attachment File, you will be aple to see my Dilemma.

wrangler

Thanks