VB Slows to Crawl when Deleting Rows

The macro is pretty basic. If the activecell has a value of 0 then the
entire row is deleted if not 0 then offset to the next row down and loop.
The problem seems to be that the spreadsheet has several dozon groupings.
After about 100 rows into the process the looping slows to one row every few
seconds and it just keeps getting slower and sloower and sloowweeerrr.

Any thoughts/suggestions?

Windows XP SP1
512 MB memory
Excel 2002 SP2

Sub DeleteZeroDataIAN()
Application.ScreenUpdating = False
Range("bl10").Activate
Do Until i = 650

If ActiveCell.Value <> "" And ActiveCell.Value = 0 Then

ActiveCell.EntireRow.Delete

Else
ActiveCell.Offset(1).Activate


End If

i = i + 1

Loop

Application.ScreenUpdating = True
End Sub

All those activates will slow things down. Take a look here:

http://www.rondebruin.nl/delete.htm#AutoFilter

hth,

Doug

"forbesy" <forbesy@discussions.microsoft.com> wrote in message
news:193E869E-991C-40CF-9042-6B7D0F0C4F47@microsoft.com...
> The macro is pretty basic. If the activecell has a value of 0 then the
> entire row is deleted if not 0 then offset to the next row down and loop.
> The problem seems to be that the spreadsheet has several dozon groupings.
> After about 100 rows into the process the looping slows to one row every
few
> seconds and it just keeps getting slower and sloower and sloowweeerrr.
>
> Any thoughts/suggestions?
>
> Windows XP SP1
> 512 MB memory
> Excel 2002 SP2
>
> Sub DeleteZeroDataIAN()
> Application.ScreenUpdating = False
> Range("bl10").Activate
> Do Until i = 650
>
> If ActiveCell.Value <> "" And ActiveCell.Value = 0 Then
>
> ActiveCell.EntireRow.Delete
>
> Else
> ActiveCell.Offset(1).Activate
>
>
> End If
>
> i = i + 1
>
> Loop
>
> Application.ScreenUpdating = True
> End Sub
>
>

Thanks Doug, that worked perfectly!

"Doug Glancy" wrote:

> All those activates will slow things down. Take a look here:
>
> http://www.rondebruin.nl/delete.htm#AutoFilter
>
> hth,
>
> Doug
>
> "forbesy" <forbesy@discussions.microsoft.com> wrote in message
> news:193E869E-991C-40CF-9042-6B7D0F0C4F47@microsoft.com...
> > The macro is pretty basic. If the activecell has a value of 0 then the
> > entire row is deleted if not 0 then offset to the next row down and loop.
> > The problem seems to be that the spreadsheet has several dozon groupings.
> > After about 100 rows into the process the looping slows to one row every
> few
> > seconds and it just keeps getting slower and sloower and sloowweeerrr.
> >
> > Any thoughts/suggestions?
> >
> > Windows XP SP1
> > 512 MB memory
> > Excel 2002 SP2
> >
> > Sub DeleteZeroDataIAN()
> > Application.ScreenUpdating = False
> > Range("bl10").Activate
> > Do Until i = 650
> >
> > If ActiveCell.Value <> "" And ActiveCell.Value = 0 Then
> >
> > ActiveCell.EntireRow.Delete
> >
> > Else
> > ActiveCell.Offset(1).Activate
> >
> >
> > End If
> >
> > i = i + 1
> >
> > Loop
> >
> > Application.ScreenUpdating = True
> > End Sub
> >
> >
>
>
>