Automatic Calculation Indicator on Lower Status Bar

[bisel]

My copy of Microsoft Office is set for Auto Update and lately I notice a strange indicator ...

In the lower left of the Excel window there are three icons ... Ready, Calculate and a Macro Recording Indicator. In my case, the "Calculate" indicator would have me believe that the workbook is set to manual calculations versus automatic calculations. This is the not the case. I believe I found the issue and it stems from a macro that runs when a specific sheet is activated. The macro suspends automatic calculation to speed up a calculation, but then enables automatic calculation once it has finished.

Just to verify, I went to Formulas, Calculations Options and the option for Automatic was indeed checked. If I toggle that option to Manual and then back to Automatic, the Calculate indicator disappears.

This seems to occur only with my existing workbook ... which is very large and quite complex. I created a simple new macro-enabled workbook and have a simple macro to run when a sheet is activated. Using the VBA commands,

Application.Calculation = xlCalculationManual
 - or - 
Application.Calculation = xlCalculationAutomatic

and that works fine. No improper indication.

Anyone seen this? I invite you to take a large and complex workbook. Add the code to disable auto calc for one of the sheets activation code. See if that turns on the "Calculate" indicator. Now insert code to enable auto calc immediately following the code to disable auto calc ... does the indicator remain?

Thanks,

Steve

 

[bisel]

Found the problem. If you use the VBA code, "Calculate" in the macro, then the "Calculate" indicator will be visible ... even though automatic calculation is enabled. Remove that command from the macro and indicator is not visible.

 

[bisel]

Found the problem. If you use the VBA code, "Calculate" in the macro, then the "Calculate" indicator will be visible ... even though automatic calculation is enabled. Remove that command from the macro and indicator is not visible.

... or immediately follow the VBA command, "Calculate", with "Application.Calculation = xlCalculationAutomatic"

Steve