RoundNum.bas

Sub RoundNum()
'Updateby20140128
Dim Rng As Range
Dim WorkRng As Range
Dim xNum As Integer
  
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xNum = Application.InputBox("Decimal", xTitleId, Type:=1)

For Each Rng In WorkRng
  Rng.Value = Application.WorksheetFunction.Round(Rng.Value, xNum)
Next
  
End Sub