one way
Sub placformulaetoround()
For Each c In Range("a2:a" & Cells(Rows.Count, "a").End(xlUp).Row)
c.Value = Round(c / 1000, 0) * 1000
Next c
End Sub
--
Don Guillett
SalesAid Software

"redinBR" wrote in message
...
I have a spreadsheet where I already have several hundred numbers typed in
as
whole numbers. Is there a way to apply a formula to the whole section
that
will round each of the pre-typed numbers to the nearest thousand.

I know how to do it using =ROUND on a cell by cell basis, but that would
take me forever.

Please help!