Список проголосовавших за комментарий "Public time_1 As Date<br/> <br/> Sub One_Min_Timer()<br/> ' время в секундах<br/> time_1 = Now() + 60<br/> Application.OnTime TimeValue(time_1), «CLEAR_1»<br/> <br/> End Sub<br/> <br/> Sub CLEAR_1()<br/> On Error Resume Next<br/> ' Прерываем старый таймер, иначе будет включаться каждые сутки в то же самое время.<br/> Application.OnTime EarliestTime:=TimeValue(time_1), Procedure:=«CLEAR_1», Schedule:=False<br/> <br/> ' тут производим нужные действия<br/> ' .................<br/> <br/> ' и снова вызываем таймер<br/> Call One_Min_Timer<br/> <br/> End Sub<br/> <br/> Копируй как есть в какой-нибудь из модулей."