Excel no actualiza las celdas despues de utilizar una macro

[3pies]

Pues con la grabadora de macros obtengo este código:

Código:

Sub macro_calculos_automaticos()
With Application
      .Calculation = xlAutomatic
      .MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
end sub

Salu2