Список проголосовавших за комментарий "<br/> <br/> На выходе из Workbook надо остановить таймер<br/> Это копируй в ThisWorkbook<br/> <br/> Private Sub Workbook_BeforeClose(Cancel As Boolean)<br/> <br/> On Error Resume Next<br/> Application.OnTime EarliestTime:=TimeValue(time_1), Procedure:=«CLEAR_1», Schedule:=False<br/> <br/> End Sub<br/> <br/> <br/> "