adding a formula around a cell reference
GREAT! This simple macro saved me hours of tedious work!!
Thanks
"Gary''s Student" wrote:
Try this simple macro:
Sub transformer()
' more than meets the eye
For Each r In Selection
s1 = r.Formula
s2 = Right(s1, Len(s1) - 1)
r.Formula = "=ROUND(" & s2 & ",3)"
Next
End Sub
Enter the macro, select the cells, run the macro.
--
Gary''s Student - gsnu200722
|