Option Explicit
Private Sub Worksheet_Activate()
'Application.Calculation=xlCalculationAutomatic
'Application.Calculation = xlCalculationManual
End Sub
Private Sub Worksheet_Deactivate()
'Application.Calculation=xlCalculationAutomatic
'Application.Calculation = xlCalculationManual
End Sub