Turning off automatic calculation: Sets the Excel calculation mode to manual
Sub cal() Application.Calculation = xlCalculationManual End Sub