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