Recalculation

[Urban]

How do I stop Excel 2003 to recalculate?

The following code is used to "translate" the old value
from the dropdown list to the new selected by the custom
language switch. When the line Range("Units... is started
it forces a full recalculation

Private Sub Language()
Dim Units_I As Integer

Units_I = CHP_Energy.Range("Units_I")
Application.EnableEvents = False

Range("Units_V").Value =
Application.WorksheetFunction.Index(CHP.Range("Units"),
Units_I, 1)

Application.EnableEvents = True

"Units_I" is where the old value is stored in the
spreadsheet
"Units" is the validation list
"Unit_V" is the value for the correct language

I have tried using Application.EnableEvents = False but it
doesn't stop it. The spreadsheet will have about 40
dropdown lists that are language dependent and it would
take to long to change if it has to be recalculated for
each dropdown list change.

Thankful for any help or suggestions,

Best regards,

Urban

 

[Charles Williams]

Hi Urban,

switch Excel to manual until all the dropdown lists are selected then switch
to automatic (or just calculate)

Application.Calculation=xlCalculationManual
.....
Application.Calculation=XlCalculationAutomatic
.....
or leave it in manual and Application.Calculate

Charles
______________________
Decision Models
The Excel Calculation Site.
www.DecisionModels.com

 

[Guest]

Thanks Charles,

I tried that agian and it worked fine, I had tried that
method before without success. I guess something else
might have been causing the problem.

Urban