Deleting a row with 0 in column A
 

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.

Deleting a row with 0 in column A
 

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

-----Original Message-----
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.
.