Excel VBA - VSTO Speed Up Speed Down Functions

Sub SpeedUp()
       
    Application.EnableCancelKey = xlDisabled
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual

End Sub

Sub SpeedDown()
   
    Application.Calculation = xlCalculationAutomatic
    Application.Calculate
    Application.ScreenUpdating = True
   
    Application.EnableCancelKey = xlInterrupt
End Sub