Calculation manual / automatic

[VegasNath]

Is there a way of setting calculation to manual when a specific worksheet is activated, and then set to automatic upon deactivation. But preferably only applicable to manual activation / deactivation, not when vba does it?

[HansV]

You could use this code in the worksheet module:

Code: Select all

Private Sub Worksheet_Activate()
  Application.Calculation = xlCalculationManual
End Sub

Private Sub Worksheet_Deactivate()
  Application.Calculation = xlCalculationAutomatic
End Sub

If you want to switch to the worksheet in code, turn off event handling temporarily:

Code: Select all

  Application.EnableEvents = False
  Worksheets("MySheet").Select
  Application.EnableEvents = True

[VegasNath]

Cheers,