VBA 'deleting row if a cell in column A is a zero.

[Charlie]

Hi People

I'm trying to use the following macro to delete any rows
that have a "0" in all cells that are in Column A -
however whn I run the macro it does change the "0" to the
word "delete" but doesn't delete the rows? Does anyone
know what i'm doning wrong? Thanks!


Sub delete()
Application.ScreenUpdating = False
Range("a1:a500").Select
For Each Cell In Selection
If Cell.Value = "0" Then
Cell.Value = "delete"
End If
Next Cell
Range("a1:a500").Select
For Each Cell In Selection
If Cell.Value = "delete" Then Cell.EntireRow.delete
Next Cell
Range("a1").Select
Application.ScreenUpdating = True
End Sub

 

[Frank Kabel]

Hi
check out:
http://www.xldynamic.com/source/xld.Deleting.html

 

[Bob Phillips]

In IE that page seems to have a display problem (not in Firefox though ).
It only links to other pages so check
http://www.xldynamic.com/source/xld.Deletingv1.html for your code.

--

HTH

RP
(remove nothere from the email address if mailing direct)

 

[Frank Kabel]

Hi Bob
a converted firefox user. Great!

 

[Bob Phillips]

I have so many fewer intrusions with Firefox (at least so far )

Bob