Excel - Macro para redondear valores de celdas con contenido

Public Sub Aprox_normal()

For Each cell In Selection

cell.Formula = Application.WorksheetFunction.Round(cell.Value, 0)

Next

End Sub

Public Sub Aprox_normal()

x = 1

For Each cell In Selection

cell.Formula = Application.WorksheetFunction.Round(cell.Value, 0)

x = x+1

if x > 1300 then exit sub  ' aqui recorreria 1300  tu le puedes poner el numero que desees

Next

End Sub

Public Sub Aprox_normal2()

    Dim tiempo1, tiempo2 As Double

    'esto es nada mas para medir el tiempo de ejecucion de la macro

    tiempo1 = Timer

    Dim MiArray() As Variant

    Dim MiRango As Range

    Dim filas, columnas  As Integer

    'asigno a Mirango lasd celdas seleccionadas

    Set MiRango = Selection.Cells

    filas = MiRango.Rows.Count

    columnas = MiRango.Columns.Count

    'redimenciono mi matriz para que sea del mismo tamaño que el del rango

    ReDim MiArray(1 To filas, 1 To columnas)

    'vacio el rango a la matriz

    MiArray() = MiRango

    'aqui hago las operaciones pero en la matriz

    For i = 1 To filas

            For j = 1 To columnas

        If MiArray(i, j) <> Empty Then MiArray(i, j) = Application.WorksheetFunction.Round(MiArray(i, j), 0)

        Next j

    Next i

    'devuelvo las operaciones ya ejecutadas de la matriz al rango

    MiRango = MiArray

    'esto es nada mas para medir el tiempo de ejecucion final de la macro

    tiempo2 = Timer

    'muestra cuanto tiempo transcurrio de la macro

    MsgBox Format(tiempo2 - tiempo1, "0. 00 \s\ec")

End Sub