Setting Calcs for auto & Manual depending on tab selected

[choli0090]

Hello.

Is there a way to have calculations set for manual if the user selects a particular worksheet/tab in the file (i.e tab name is "Example A") & when the user selects any other tab/worksheet in the same file, calculations are set for automatic?

Also is there a way to display in a cell if calc are set for manual or automated?

Thanks

 

[Ken Cowen]

You could have a worksheet activate code for each workbook, selecting the appropriate line from the two options below:

Private Sub Worksheet_Activate()


Application.Calculation = xlManual
or
Application.Calculation = xlAutomatic


Cells(1,1).value=Application.Calculation


End Sub

It would also be prudent to set calculation to auto when you exit a worksheet that triggered the manual calc mode on activation. The last line in the sub above will put the code for the calculation mode in cell A1. It will be -4105 for automatic or -4135 for manual. You probably won't be happy with those numbers, so you can convert them via an If formula on the worksheet, or convert in the macro and display a word of your preference in the place you want it.

I hope this helps.

Ken