正确使用“Calculation = xlCalculationManual”和类似的

Question

正确使用：

With Application
    CalcMode = .Calculation
    .Calculation = xlCalculationManual
    .ScreenUpdating = False
    .EnableEvents = False
End With

我以这种方式使用它

Sub AAA()
With Application
    CalcMode = .Calculation
    .Calculation = xlCalculationManual
    .ScreenUpdating = False
    .EnableEvents = False
End With

Call This
Call That
Call Other

With Application
    .ScreenUpdating = True
    .EnableEvents = True
    .Calculation = CalcMode
End With

End Sub

这是应用这些的最佳方式吗？或者按照宏观应用它们更好吗？

由于