Format zelle

ich importiere ein Datei mit Zahlen und weiße der Zelle folgendes Format zu:

With Columns("D")
.NumberFormat = "#0"
.Value = .Value
End With

ich bekomme zwar 2 Stelle angezeigt aber wenn ich die Zelle anklicke so sehe ich 39.99 wie kann ich das verhindern oder wie muß ich die Zellen formatieren das ich immer nur ganze Zahlen erhalte und nichts mit 39.99, da ich dieser Werte weiterverarbeite.