rounding a formula in a cell, then replace the formula
 

You should always post your coding efforts for comment.
try this
Sub changeformula()
For Each c In Selection
x = Right(c.Formula, Len(c.Formula) - 1)
c.Formula = "=round(" & x & ",2)"
Next
End Sub

--
Don Guillett
SalesAid Software

"Robert" wrote in message
...
I want to round 50 plus cells with the rounding formula. I want to select
the cell, enter the rounding formula that will round the formula already in
the cell and replace the original formula. Example C10*C15 to
ROUND(C10*C15,2). I tried doing this with a macro and it doesn't work. The
macro changes the original formula.
--
Robert