Calculate sheet macro

[Russk68]

Hi All,
I need a macro that will set calculations to manual when a sheet is opened and calculate the sheet with the Enter key.

Your help is greatly appreciated!

 

[mrshl9898]

Re: Need help with calculate sheet macro

Enter this in "ThisWorkbook" object:

Private Sub Workbook_Open()

Application.Calculation = xlManual


Application.OnKey "~", "myMacro1"


End Sub

And in a module:

Sub myMacro1()

Application.Calculation = xlAutomatic


End Sub

 

[Russk68]

Re: Need help with calculate sheet macro

Hi
I haven't had a chance to try this yet but thank you very much for the code!

Russ

 

[Russk68]

Hi
I just wanted to know if I was doing this right.
To enter in ThisWorkbook, right click on ThisWorkbook, View Code and paste code?

Add in a Module, right click ThisWorkbook, Insert> Module and paste code?

 

[mrshl9898]

Hi, correct.

 

[Russk68]

Cool!
I may not have explained myself well.
I want the workbook to always be in Manual mode.
In any worksheet when I hit enter, I want just that worksheet to calculate each time.
I think your code is calculating the workbook with the Enter key. Is that correct?

 

[mrshl9898]

<code style="margin: 0px; padding: 0px; border: 0px; font-style: inherit; font-variant: inherit; font-weight: inherit; font-stretch: inherit; line-height: inherit; font-family: Consolas, Menlo, Monaco, "Lucida Console", "Liberation Mono", "DejaVu Sans Mono", "Bitstream Vera Sans Mono", "Courier New", monospace, sans-serif; vertical-align: baseline; white-space: inherit;">That is correct.

Try replacing Application.Calculation = xlAutomatic with ActiveSheet.Calculate</code>

 

[Russk68]

I will!
Thank you so much!

 

[Russk68]

Works great!
Thanks again!