Calculation Mode

[Kevin H. Stecyk]

Calculation Mode.

I want to determine the user's calculation mode. Then change it to manual.
Once the subroutine is complete, I then want to set the calculation mode
back to original setting. How do I do that?

Regards,
Kevin

 

[Norman Jones]

Hi Kevin

Sub Tester()
Dim CalcMode As Long

With Application
CalcMode = .Calculation
.Calculation = xlCalculationManual
End With

',,,,,,,,,,,,,,Your Code

With Application
.Calculation = CalcMode
End With

End Sub

 

[Kevin H. Stecyk]

Norman Jones...

Hi Kevin

Sub Tester()
Dim CalcMode As Long

With Application
CalcMode = .Calculation
.Calculation = xlCalculationManual
End With

',,,,,,,,,,,,,,Your Code

With Application
.Calculation = CalcMode
End With

End Sub

Norman,

That is exactly what I would looking for. Thank you very much.

Best regards,
Kevin