macro remove zeros

[ste33uka]

I have the following macro code to removes zeros from cells
problem is it also removes zeros if cell has number is example 40.00
Would anyone know how i can fix this ?

Sub Delete_zero
      Sheets("data").Range("X1:AM20000").Replace "0", "", xlPart
End Sub

 

[ranman256]

what example do you WANT to remove a zero?

 

[ste33uka]

what example do you WANT to remove a zero?

only when zero is found by itself in a cell

 

[Joe4]

Change "xlPart" to "xlWhole".

 

[ste33uka]

Change "xlPart" to "xlWhole".

Thanks alot, perfect

 

[Joe4]

You are welcome.

As you probably figured out, "xlPart" allows for partial matches, while "xlWhole" only allows for complete matches.