Trust me. It is a new blank workbook and worksheet. I just type 4
numbers 1, 8, 5 and 2 without any formatting.

For your info, There are no decimal places even I deliberately format
it. I know what I am doing in excel, so be assured that the cell
contains just four numbers.


Following procedure prints 1852.00034359738 in the immediate window

---
Sub BugTest()

Range("A1").Value = 1852

Debug.Print Range("A1").Value

End Sub
---


So Is reinstall the only option?