If you dont have formulas in Total sheets referring to other sheets....

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Total" Then
Application.Calculation = xlCalculationManual
Else
Application.Calculation = xlCalculationAutomatic
End If
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"Mouimet" wrote:

I ask this before, however the solution I received didn't work.

I have a big Workbook with many criteria using "SUMPRODUCT" formula .
I need to remove the auto calculation on one of the sheet "Total" because
each time I add something on the Data sheet, Excel recalculate and take more
than 30 seconds.
I need to keep the calculation on the Data sheet because I have some Vlookup
formulas to get names when the user entered the ID numbers.

I tried different VBA like -------------
Private Sub Worksheets_Calculate()
Worksheets("Total").EnableCalculation =false
End Sub
Doesn't work at all. At each Data entries Excel recalculate

Another one------------
Application.Calculation = xlCalculationManual

------
This one stop also my others worksheets to calculate and my others open
Workbook. This is not what I need.

If you have another option, please tell me.
Thanks everyone.