Sub RoundTest()
Dim x
x = 1.2345
Debug.Print Round(x, 1)
End Sub

--
Regards
Andy Wiggins
www.BygSoftware.com
Home of "Save and BackUp",
"The Excel Auditor" and "Byg Tools for VBA"



"Tasmin" wrote in message
...
How do you round to 1 decimal place in code?
I know how to put a round formula in a cell, but I have a
value and need to reference, but not display, the rounded
result of.

Thanks