Public Sub WrapaRounds()
Dim cell As Range
On Error Resume Next
With Selection
For Each cell In Union(.SpecialCells(xlCellTypeConstants, _
xlNumbers), .SpecialCells(xlCellTypeFormulas))
With cell
.Formula = "=ROUND(" & Mid(.Formula, 1 - _
.HasFormula) & ", 2)"
End With
Next cell
End With
End Sub
This adds to both formulas and numeric constants. If you just want
formulae to be wrapped, use:
For Each cell In .SpecialCells(xlCellTypeFormulas)
With cell
.Formula = "=ROUND(" & Mid(.Formula, 2) & ", 2)"
End With
Next cell
In article <106701c27f93$10c43790$3aef2ecf@TKMSFTNGXA09>, Jason L.