Округление в выделенном диапазоне, Excel

Sub MyRoundRange()
    For Each cell In Selection
        cell.Value = WorksheetFunction.Round(cell.Value, 0)
    Next cell
End Sub