View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
Rick Rothstein \(MVP - VB\)[_1366_] Rick Rothstein \(MVP - VB\)[_1366_] is offline
external usenet poster
 
Posts: 1
Default Application.Calculation = xlCalculationAutomatic

As Conan mentioned, xlCalculationAutomatic and xlCalculationManual are
predefined constants for the numbers -4105 and -4135. By the way, there is a
3rd possible mode... 2 whose predefined constant is
xlCalculationSemiAutomatic. While somewhat ugly, you can use this statement
to print out what I think you want...

Debug.Print "Starting NuTenant: " & _
Choose(((Application.Calculation + 4165) Mod 4077) / 30, _
"xlCalculationManual", "xlCalculationAutomatic", _
"xlCalculationSemiAutomatic")

It handles all three modes; however, if you never use
xlCalculationSemiAutomatic, then you can use this somewhat shorter statement
instead...

Debug.Print "Starting NuTenant: " & _
Choose((Application.Calculation + 4165) / 30, _
"xlCalculationManual", "xlCalculationAutomatic")

Rick


"Karen53" wrote in message
...
Hi,

How do I check the status of xlCalculation (Manual or Automatic) in a
debug
statement?

I tried

Debug.Print "Starting NuTenant " & Application.Calculation

I'm getting results like -4105 and -4135
--
Thanks for your help.
Karen53