Hi Souris,

Try something like:

Public Sub XYZ()
Dim CalcMode As Long

With Application
CalcMode = .Calculation
.Calculation = xlCalculationManual
End With

'Your Code

Application.Calculation = CalcMode

End Sub

---
Regards,
Norman

"Souris" wrote in message
...
I would like to disable calculation before my code and Enable calculation
after my function.

Can you please let me know what is the functionm I can use?

Thanks in advance,