Disable automatic calculations on 1 sheet only

[brianfosterblack]

I have a multi sheet workbook but a lot of formulas on 1 sheet which is slowing down the workbook significantly because of the calculations being automatic and the numbers involved. I do not want to disable automatic calculation for the whole workbook but only for the one sheet named "Control"
When open this worksheet, only then do I want to activate the automatic calculations on this sheet and when I leave the worksheet I want to deactiveate the automatic calculations for that sheet only. Is there a way to do this with VBA in the worksheet code?

 

[Dossfm0q]

Into WorkBook Module

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

If Sh.Name = ThisWorkbook.Worksheets("Control").Name Then
'If Sh.Name = "Control" Then
    Application.Calculation = xlManual
    'Application.Calculation = xlAutomatic

Else
    Application.Calculation = xlAutomatic
    'Application.Calculation = xlManual
End If

End Sub

 

[brianfosterblack]

Into WorkBook Module

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

If Sh.Name = ThisWorkbook.Worksheets("Control").Name Then
'If Sh.Name = "Control" Then
    Application.Calculation = xlManual
    'Application.Calculation = xlAutomatic

Else
    Application.Calculation = xlAutomatic
    'Application.Calculation = xlManual
End If

End Sub

View attachment 32440

Thank you, This works perfectly.