Deleting a row with 0 in column A

[Steven R. Berke]

In my worksheet Column A contains zeroes and other numbers with 0 in
them like 4500. I want to use a macro to delete those rows in column A
that just contain zeroes. There are other numbers in column A
containing 0 but these zeroes are part of at least a four digit number
Would you please help me write a macro to do this.

 

[Bill LI]

i=1
Do While cells(i,1)<>""
s=trim(cstr(cells(i,1)))
if instr(s,"0") then
rows(i).delete
else
i=i+1
end if
Loop