Right now your macros look backward to me. It seems you would want Excel to be in Automatic mode EXCEPT when you are on specific sheets, your current macros seem to be doing the opposite, so try switching them around first.
Another way is to create a SINGLE macro in the ThisWorkbook module to handle this as you change sheets within the workbook. Also a couple of other workbook events to make sure calculation is on if you switch to another workbook"
All of this in the ThisWorkbook module:
Private Sub Workbook_SheetActivate(ByVal sh As Object)
If sh.Name = "Delegates" Or sh.Name = "Introductions" Or sh.Name = "TV Network" Then
Application.Calculation = xlCalculationManual
Else
Application.Calculation = xlCalculationAutomatic
End If
End Sub
Private Sub Workbook_Activate()
If ActiveSheet.Name = "Delegates" Or ActiveSheet.Name = "Introductions" Or ActiveSheet.Name = "TV Network" Then
Application.Calculation = xlCalculationManual
Else
Application.Calculation = xlCalculationAutomatic
End If
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.Calculation = xlCalculationAutomatic
End Sub
Bookmarks