Error in code re: automatic calculation

[Humate]

HI All,

I have some code that is giving me the an error message. To speed up my macro I have this at the start

 With Application
            .ScreenUpdating = False
            .EnableEvents = False
            .Calculation = xlCalculationManual
 End With

Some more code here to copy and manipulate data. followed by this:

With Application
                .DisplayFormulaBar = False
                .DisplayStatusBar = False
                .ScreenUpdating = True
                .EnableEvents = True
                .CalculationVersion = xlAutomatic
End With

I get a compile error message on the final line when asking to revert to automatic calculation, "Can't assign to read only propery". I'm not sure what I am doing wrong, can anyone help?

Thanks
Humate

 

[VoG]

Should be

.Calculation = xlAutomatic

 

[Humate]

Excellent, can't believe I hadn't spotted that!

The macro runs fine now, no errors. The only problem is that it doesn't seem to change back to automatic calculation, despite going through the code fine.

Any ideas why it is doing this? I am using xl2000.

Thanks again
Humate