babaso_tawase
Board Regular
- Joined
- Feb 5, 2017
- Messages
- 73
- Office Version
- 2007
- Platform
- Windows
I have workbook with 3 sheets named sheet 1= Sample entry, sheet 2=monthly report, sheet 3 =names. Sheet 1 have raw data about 100000 row, sheet 2 contains lots of formulas. I don't want calculate result every time while saving. I want result once in monthly, I can do calculation by pressing F9 key.
I use below vba code in module.
Option Explicit
Private Sub Worksheet_Activate()
Worksheets("Monthly Report").EnableCalculation = False
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.CalculateBeforeSave = False
End Sub
It gives desired results means stops calculation.
But it applies for all sheets. I just want autocalualation off for sheet 2 upon saving file and opening file also.
If I opened other normal workbook and after that I opened this workbook VBA code not works.
If I opened this workbook first and after that other workbook. Autocalulation gets offs for all other workbooks.
Is any solution for this?
I use below vba code in module.
Option Explicit
Private Sub Worksheet_Activate()
Worksheets("Monthly Report").EnableCalculation = False
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.CalculateBeforeSave = False
End Sub
It gives desired results means stops calculation.
But it applies for all sheets. I just want autocalualation off for sheet 2 upon saving file and opening file also.
If I opened other normal workbook and after that I opened this workbook VBA code not works.
If I opened this workbook first and after that other workbook. Autocalulation gets offs for all other workbooks.
Is any solution for this?