Calculating a workbook - Easy Q!

[farmertml]

Hi Guys,

I have a macro which runs a number of differn't commands. I have it so my workbook automatically turns of calculation using this
<code>
Private Sub Workbook_Open()
Application.Calculation = xlCalculateManual
End Sub</code>

But when I run my macro I want it to calculate the whole workbook (30+ pages) and then go back to manual before it continues doing the rest of the process.

Any help appreciated.

Paul

 

[schielrn]

Maybe you want:

Private Sub Workbook_Open()
calculate
Application.Calculation = xlCalculateManual
End Sub

Hope that helps?