Guys I have a problem with a VBA code I wrote. The problem is that I want a specific workbook to be always on manual but when I open other workbooks I want them to remain on automatic even though the first workbook is set on manual through vba code. Is that possible to be done?
This is the code I run:

Private Sub Workbook_Activate()
With Application
.Calculation = xlManual
.MaxChange = 0.001
.CalculateBeforeSave = False
End With
End Sub

Private Sub Workbook_Deactivate()
With Application
.Calculation = xlAutomatic
.MaxChange = 0.001
.CalculateBeforeSave = False
End With
End Sub

Private Sub Workbook_Before_Open()
With Application
.Application.Calculation = xlCalculationManual
.MaxChange = 0.001
End With
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
With Application
.Application.Calculation = xlCalculationManual
.CalculateBeforeSave = False
.CalculateBeforeClose = False
.MaxChange = 0.001
End With
End Sub
I kmow that Application.Calculation refers to all open workbooks but I don't know the code to specify the manual calculation to this workbook only while others are open. Could you help me on this??Thnx