Sub roundreplace()'for one
Range("c4:c5").Value = Application.Round(Range("c4:c5").Value, 2)
End Sub

Sub roundreplacemultiple()
For i = 3 To 5 'colums c:e
lr = Cells(Rows.Count, i).End(xlUp).Row
Range(Cells(4, i), Cells(lr, i)).Value = _
Application.Round(Range(Cells(4, i), _
Cells(lr, i)).Value, 2)
Next i
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Abbey Normal" wrote in message
...
Is there a way to both round and replace a column of numbers?
I have a user who has multiple columns, that contained formulas,
so I inserted and copied them to get just the values.
Turns out, the values are decimals, and that he was rounding.
So now, I have to insert a column to round and then insert/copy/paste
special to copy just the values. I have to do this for each column, of
which
there are 10.
Is there a better way to do this?
Thanks,