Периодический запуск Calculate Worksheet в Excel

[Серега]

Как через определенные промежутки времени генерить событие Calculate Worksheet в Excel. В промежутках ресурсы машины должны быть свободны т.к. работают другие программы.

[GSerg]

В модуль

Код: Выделить всё

Public Sub StartCalc()
  Application.OnTime Now + TimeValue("00:00:02"), "StartCalc"
  Worksheets(1).Calculate
End Sub

Public Sub EndCalc()
  Application.OnTime Now + TimeValue("00:00:10"), "StartCalc", , False
End Sub

[Серега]

Спасибо попробую