Apply the same number format (eg 0.00) to both cells

HTH
--
AP

"cherij" a écrit dans le message de
...
I am trying to flip text between two cells:

Dim strTemp As String

strTemp = Cells(nCurrent, 1).Value
Cells(nCurrent, 1).Value = Cells(nCurrent + 1, 1).Value
Cells(nCurrent + 1, 1).Value = strTemp

If I start with "3.100" and "3.10" in the two cells, I end up with 3.1 in
both cells after this code is executed.

Any help is appreciated