Sub BuildRoundFormula()
  ' Build the =ROUND() function around the formulas
  ' in your selection

  Dim rngCel             As Range
  Dim strFormula         As String
  Dim lNumDigits         As Long
  lNumDigits = 2            ' < --- EDIT THIS

  ' If lNumDigits is greater than 0 (zero), then number
  ' is rounded to the specified number of decimal places.
  ' If lNumDigits is 0, then number is rounded to the
  ' nearest integer.
  ' If lNumDigits is less than 0, then number is rounded
  ' to the left of the decimal point.

  For Each rngCel In Selection
    If rngCel.HasFormula Then
      strFormula = rngCel.Formula
      ' strip the equal sign on the left:
      strFormula = Right(strFormula, Len(strFormula) - 1)
      rngCel.Formula = "=ROUND((" & strFormula & ")," & _
                       lNumDigits & ")"
    End If
  Next
End Sub