Automatic Calculation

[APML]

Hi All, I have a workbook with lots of worksheets that perform many calculations. To make the workbook perform better I've set up the below macro which turns on and off automatic calculations for some of the sheets.
I'm just wondering if anyone can suggest a way, so I can know with a quick glance if automatic or manual calculation is set for the specifc workheet..
I was thinking something like a cell might change colour or something... was looking for a way that doesn't require me to do a calculation to find out if the sheet is set to automatic or manual


Sub TurnOff()

Worksheets("ASX_Data").EnableCalculation = False

Worksheets("Analysis").EnableCalculation = False

Worksheets("TodaysData").EnableCalculation = False

MsgBox ("AutoCalc Is OFF")

End Sub

Sub TurnOn()

Worksheets("ASX_Data").EnableCalculation = True

Worksheets("Analysis").EnableCalculation = True

Worksheets("TodaysData").EnableCalculation = True
MsgBox ("AutoCalc Is ON")
End Sub

 

[Anthony47]

I think that is probably true for most of us. Love your work by the way.

Thank you, nice to talk to you...