adding a forumla to cells with formula in them already

[iVassh]

I need to add a round command to about 2500 cells and many of them hav
their own individual formula is there any way to add round to all o
them

I tried selecting them all and using ctrl+enter but that changed all th
formulas to the same so that didn't wor

what I want to end up with is thi

=round("whats already in this cell",0

 

[Gord Dibben]

Select the 2500 cells then run this macro.

Sub RoundAdd()
Dim mystr As String
Dim cel As Range
For Each cel In Selection
If cel.HasFormula = True Then
If Not cel.Formula Like "=ROUND(*" Then
mystr = Right(cel.Formula, Len(cel.Formula) - 1)
cel.Value = "=ROUND(" & mystr & ",0)"
End If
End If
Next
End Sub

Gord