Run macro by pressing F12

[George J]

I have the following code to switch the sheet calculation from Manual (done to speed up another macro - copy & paste lots of detail from other sheets), to Automatic.

I am not sure how to go about it, but am sure the onkey command is correct.

Private Sub Worksheet_calculate()
Application.OnKey "{F12}", "Calculate_Auto"
End Sub

Any tips appreciated.

[Ivan F Moala]

On 2002-03-28 04:49, George J wrote:
I have the following code to switch the sheet calculation from Manual (done to speed up another macro - copy & paste lots of detail from other sheets), to Automatic.

I am not sure how to go about it, but am sure the onkey command is correct.

Private Sub Worksheet_calculate()
Application.OnKey "{F12}", "Calculate_Auto"
End Sub

Any tips appreciated.

Hi George
have you tried using the follwoing to switch
it On/Off ?

Application.Calculation = xlCalculationManual
Application.Calculation = xlCalculationAutomatic


Ivan

[George J]

The Calculate_Auto macro I am trying to run has that covered (I think). I am really wanting a one key press to revert back to Automatic calculation for the whole sheet. I know pressing F9 refreshes the calculations, but the option is still set to manual.

Sub Calculate_Auto()
'
' Calculate_Auto Macro
' Macro recorded 28/03/2002 by gj
'

'
With Application
.Calculation = xlAutomatic
.MaxChange = 0.001
End With
ActiveWorkbook.PrecisionAsDisplayed = False
End Sub

Any ideas?