Pls don't type in all caps.

Sub roundto1000()
For Each c In Selection
c.Value = Round(c / 1000, 0) * 1000
Next c
End Sub

--
Don Guillett
SalesAid Software

"Martina" wrote in message
...
How do I round to the nearest thousand without individually having to do
it
for every cell?