Stop calculations in a single workbook

[Kris with a K]

I am trying to stop calculations in a single workbook while maintaining calaculations on in another workbook. I have the workbooks set up to run set calculations when different parameter change but haveing calculations constantly running on one of the workbooks locks Excel for 15 to 20 minutes at a time and its becoming very frustrating.

I had tried to use the following code in the "ThisWorkbook" section where macros are written.

Sub offcalculations()

With Application
.Calculation = xlManual
.MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False


End Sub

but this doesnt seem to work, i had read somewhere that i need to declare a "dim" statement but im not to sure how this is done.

the workbook name is "IP Queue v6.0" if that is important.

Thanks in anticipation, Kris

 

[Kris with a K]

I did expect a little help with this, did i do something wrong?