VB Slows to Crawl when Deleting Rows

[Guest]

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

 

[Doug Glancy]

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

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

hth,

Doug

 

[Guest]

Thanks Doug, that worked perfectly!

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

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

hth,

Doug