000 voor een getal verdwijnt

[snb]

Wat is het probleem ?

Sub nulbehoud()
  With columns(2)
     .numberformat="@"
     For y = 2 To .specialcells(xlcelltypeconstants).count
       .Cells(y) = Format(replace(.Cells(y),"*",""), String(Len(.Cells(y)), "0"))
    Next
  End With
End Sub