Marco to setup Enablecalculation to False and macro to setup Enablecalculation to True.

[ebeyert]

All,<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
Can someone help me with two macros for my worksheet: HR Planning (the macro only needs to be for this worksheet)<o></o>
<o></o>
One macro to setup Enablecalculation to False and one macro to setup Enablecalculation to true. <o></o>
<o></o>
I am trying with: <o></o>
<o></o>
Macro 1: <o></o>
<o></o>
Sub CalculationFalse<o></o>
ThisWorksheet (HRPlanning). Enablecalculation =False<o></o>
End Sub<o></o>
<o></o>
<o></o>
Marco 2: <o></o>
Sub CalculationTrue
ThisWorksheet (HRPlanning). Enablecalculation =True<o></o>
End Sub<o></o>
<o></o>
But as you can see, I am not a macro user.. J<o></o>

Thanks in advantage,
Best regards
Ellerd

 

[VoG]

Try

Sub CalculationFalse()
ThisWorksheet.Sheets("HRPlanning").EnableCalculation = False
End Sub


Sub CalculationTrue()
ThisWorksheet.Sheets("HRPlanning").EnableCalculation = True
End Sub

 

[JackDanIce]

Try:

Sub CalculationFalse ()
Sheets("HRPlanning").Select
Application.Calculation = xlCalculationManual
End Sub

And

Sub CalculationTrue
Sheets("HRPlanning").Select
Application.Calculation = xlCalculationAutomatic
End Sub

<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>

 

[ebeyert]

Thanks for your quick reply.

I receive this message if I use VoG macro:
Run-Time error “424”
Object required


I receive this message if I use JackDanIce
Run-time error “9”:
Subscript out of range.


I only want that I can turn EnableCalculation on and off for the worksheet HR Planning.

I hope that you can help me
Thank
Best regards
Ellerd

 

[VoG]

Try

Sub CalculationFalse()
ThisWorkbook.Sheets("HR Planning").EnableCalculation = False
End Sub


Sub CalculationTrue()
ThisWorkbook.Sheets("HR Planning").EnableCalculation = True
End Sub