"Calculate" in the bottom left

[VBE313]

I have a lot of data in an excel file, and one tab is for data entry only. I want just that sheet to be on calculate manual at all times and have that "Calculate" stay there. Is there any code that will keep that "Calculate" down there? Application.Calculation = xlCaluclationManual does not do it.

 

[JoeMo]

I have a lot of data in an excel file, and one tab is for data entry only. I want just that sheet to be on calculate manual at all times and have that "Calculate" stay there. Is there any code that will keep that "Calculate" down there? Application.Calculation = xlCaluclationManual does not do it.

The calculation status applies to all open workbooks and their worksheets, not to a single sheet. You can try the event code below which sets calculation to manual whenever your tab is selected.

Before you open the workbook, have at least one other workbook open and set calculation to manual.

This code goes in a sheet module.
To install sheet code:
1. Right-click the worksheet tab you want to apply it to and choose 'View Code'. This will open the VBE window.
2. Copy the code below from your browser window and paste it into the white space in the VBE window.
3. Close the VBE window and Save the workbook. If you are using Excel 2007 or a later version do a SaveAs and save it as a macro-enabled workbook (.xlsm file extension).
4. Make sure you have enabled macros whenever you open the file or the code will not run.

Private Sub Worksheet_Activate()
Application.Calculation = xlCalculationManual
End Sub