Manual Calculation using VBA

Hi guys this is my problem:

I've wrote a VBA appplication in Excel97 and I need this application to activate manual Calculation. I do it with this:

Application.Calculation = xlCalculationManual

Then, I would like to add a button, a real one using a "command button". But when the click event of this button executes the application, excel abort it in the manual calculation activation instruction (Application.Calculation = xlCalculationManual)

Why? I don't know. I can assign a Macro to an Autoform shape and it works OK. Executing the macro with the "Execute Macro" button in the VB ToolBar works just fine too.

Any ideas?
LVL 2
nfernandAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

tureCommented:
nfernand,

This is a bit buggy. Try one of the following to avoid this problem:

* Set the button's 'TakeFocusOnClick' to False

* Use this as the first line in the procedure called by the button:
AvtiveCell.Activate

Any better?

Ture Magnusson
Karlstad, Sweden
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
nfernandAuthor Commented:
Thank you man... the 'TakeFocusOnClick' worked OK.
0
tureCommented:
nfernand,

I'm glad that I could help you. Thanks for the points!

/Ture
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Office

From novice to tech pro — start learning today.