Sub Insert_Rounding()
'Written by Barrie Davidson
Dim Orig_formula As String
Dim formulaRg As Range
Dim formcell As Range
For Each formcell In Selection
Orig_formula = formcell.Formula
Orig_formula = Mid(Orig_formula, 1, 1) & "round(" & Mid(Orig_formula, 2) & ",2)"
formcell.Formula = Orig_formula
Next
End Sub