Just to clarify............

My posting was not intended to make corrections to Tom Ogilvy's code or as a
derogatory statement towards Tom.

If you note, the previous post by OP stated...............

to: Gord Dibben

your function's great. ths much

I re-posted stating "not so great" with reference to the code I had posted
earlier and gave OP a corrected version.


Gord


On Wed, 19 Jul 2006 11:04:54 -0700, Gord Dibben <gorddibbATshawDOTca wrote:

Not so great........deletes rows that contain 500 or 702

Changes to avoid that.

Sub DeleteRows_With_Zero()
findstring = "0"
Set B = Range("A:A").Find(What:=findstring, LookAt:=xlWhole)
While Not (B Is Nothing)
B.EntireRow.Delete
Set B = Range("A:A").Find(What:=findstring, LookAt:=xlWhole)
Wend
End Sub


Gord

On Wed, 19 Jul 2006 13:26:38 -0400, vumian
wrote:


to: Tom Ogilvy

Your function error coz you replace zero inside cell
Ex: 500 -- 5()na()na

to: Gord Dibben

your function's great. ths much