Automatic Calculation

[melewie]

Hi All,<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o></o>
I am having problems with returning a workbook to automatic calculation, I am using the below code<o></o>
<o></o>

[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]Application.Calculation = xlManual<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]Lots of code<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]<o:p></o:p>[/FONT][/COLOR]
[COLOR=black][FONT=Verdana]Application.Calculation = xlCalculationAutomatic<o:p></o:p>[/FONT][/COLOR]

<o></o>
<o></o>
I have stepped through the code and it is definitely reading the code but not changing the WB back to auto calculation. I am fully stuck with this and any help would be greatly appreciated.<o></o>

 

[diddi]

    Application.Calculation = xlManual

        Lots of code

    Application.Calculation = xlAutomatic    <-------------

 

[mole999]

I think it should be

Application.Calculation = xlCalculationManual

and then

**

Application.Calculation = xlCalculationAutomatic

Do you have

application.screenupdating = true
application.enableevents = true

at the asterisks

 

[ziad alsayed]

it should be

Application.Calculation = xlManual
'losts of code
 Application.Calculation = xlAutomatic

 

[melewie]

I have treid 'xlAutomatic' and still doesnt change calculation to auto.

Application.ScreenUpdating = False 
Application.Calculation = xlManual 
 
Lots of Code
 
Application.ScreenUpdating = True
Application.Calculation = xlAutomatic

I am also using screen updating and this is working fine i am using excel 2007 if that makes any diffrence

 

[diddi]

xlAutomatic is definately correct. i use it regularly.

is there any chance the code is quitting early and not getting far enough. have you stepped through it? (F8)

 

[diddi]

sorry i see you have stepped.

have you changed workbooks in the code (eg copy and paste and reselected)

 

[Richard Schollar]

My guess would be the code isn't executing (or maybe some other code responding eg to an event is disabling the calculation).

xlAutomatic = xlCalculationAutomatic

xlManual = xlCalculationManual

 

[melewie]

I use it on 99% of my code and have never had a problem with it (until now) yes I have stepped through the code and it is being read I have put code after it and that works even tried putting it within an IF
ie
if calc = man then
calc = auto
end if

(obviously with the correct code not the jibberish above)

it goes through it fine it just doesnt seem to work?!?!?! I am really confussed which is bad for a monday morning

 

[melewie]

sorry i see you have stepped.

have you changed workbooks in the code (eg copy and paste and reselected)

yes I have changed workbooks to copy and paste. I start on WB1 go to WB2 copy from WB2 and paste in WB1 so I have WB1 selected at the start and end. does this make a diffrence?