Adding Round funciton to handful of numbers

  • Thread starter Thread starter Jamie
  • Start date Start date
Hello Jamie,

Maybe

Sub addround2()
Dim cell As Range
For Each cell In Selection
If Not cell.HasFormula And IsNumeric(cell) Then
cell = "=ROUND(" & cell.Text & ",-2)"
End If
Next cell
End Sub

You have raw data and you do not want to change any formula (or apply
this macro repeatedly), I guess.

Regards,
Bernd
 
Back
Top