There is no simple way to do this because Excel does not have a
Workbook.Calculate method.

The more complex way of achieveing something like this (which I use in my
commercial FastExcel product) is to use an Application level event to switch
Worksheet.EnableCalculation off for all the sheets in all the inactive
workbooks, and switch Worksheet.EnableCalculation on for all the sheets in
the activeworkbook. Note that the EnableCalculation property is not saved
with a workbook. Then you would also need a routine to handle manual
calculation of the disabled workbooks etc etc.

regards
Charles
___________________________________
The Excel Calculation Site
http://www.decisionmodels.com

"Ayo" wrote in message
...
I want to set the calculation option for my ActiveWorkbook to Manual. How
do
I accomplish that without using the code below which set the option for
all
open workbooks?

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