calculate only when macro has been enable.

[VISHAL120]

Hi ,

I am trying work out with the attached files where the calculation has been set to manual.

And the file shall calculate only when the macro has been enable but not when disable as besides this there is a lot of check being done through VBA and if user click on the disable button and then the calculation is done it may have big different on the stock values.

here is the code am trying since long :
[VBA]
Sub CALCULATION()


Worksheets("HANDFLAT").Activate

' With Application
' .CALCULATIONfull
' .Iteration = True
' .CalculateBeforeSave = True
' End With
Application.CalculateFullRebuild

Application.CALCULATION = xlCalculationManual

End Sub[/VBA]

but the code seems not be working.

I am also attaching part of the file to have an idea.

many thanks for helping in advance.

[mdmackillop]

The Activate line fails with me. try
[VBA]Worksheets("HANDFLAT").Select[/VBA]

[VISHAL120]

hi ,

thanks it works on the handflat sheets.

Can you help me further on how can i do it also for other sheets. Shall i code for all the sheets seperately.

as the workbook will have approx. 14 sheets for control.

thanks again for your help.

[SamT]

[VBA]Sub Application_WindowActivate(ByVal Wb As Excel.Workbook, ByVal Wn As Excel.Window)
Wb.Application.CALCULATION = xlCalculationManual
End Sub[/VBA]

[VISHAL120]

hi Sam,
Sorry for the lateness

I have not well understand on how to use the above code well.

can you please explain me.

many thanks.

[SamT]

Vishal,

You want workbook to calculate only when your Sub CALCULATION() Runs.

Put this sub in ThisWorkbook CodePane for every workbook you want to force CalculationManual

[VBA]Sub Application_WindowActivate(ByVal Wb As Excel.Workbook, ByVal Wn As Excel.Window)
Wb.Application.CALCULATION = xlCalculationManual
End Sub[/VBA]

[VISHAL120]

ok thanks i try and revert