Hi

Sub test()
Application.Calculation = xlCalculationManual
'your things here
Application.Calculation = xlCalculationAutomatic
End Sub

HTH. Best wishes Harald


"Seanie" wrote in message
...
What code would I use to stop all calculations on all open workbooks
and reset to auto calculation on close?

I have a number of workbooks that copy info between each other with a
large amount of formula's within, its taking quite a while to run my
code, so perhaps turning off calculation would work for me. Note once
the info is copied-paste special-value I don't need any calculations
down