Got this off the macro recorder, by selecting the 'manual' option from the calculation tab in tools>options
It is untested...
Private Sub Workbook_Open()
With Application
.Calculation = xlManual
.MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
End Sub