Cómo controlar los cálculos en una macro de Excel.

Las siguientes instrucciones son muy útiles para acelerar la ejecución de una macro, porque si vamos a ordenar un archivo con fórmulas, Excel se la pasará recalculándolas constantemente y se volverá lentísimo:

Para indicar que el cálculo es manual.

Application.Calculation = xlCalculationManual

Para indicar que calcule y espere a que termine de calcular.

Application.Calculate
Do While Application.CalculationState <> xlDone
Loop

Para indicar que el cálculo es automático.

Application.Calculation = xlCalculationAutomatic