Перемотка счетчика

[mv6677]

Добрый вечер.
Подскажите - как решить вопрос.

Есть макрос простого счетчика, который каждую миллисекунду - прибавляет в ячейку А1 - единицу.
Когда счетчик достигает величины 1000 - значение перематывается на 0 и счет заканчивается.

Как заставить макрос - перемотать счетчик - на нулевое значение и запустить заново ?
(В общем - чтобы он до бесконечности прокручивался).

[Perfect2You]

Зациклить. Только предусмотреть какое-то прерывание, чтоб выйти можно было, не обрушивая EXCEL.

[mv6677]

Perfect2You, я знаю что зациклить.
Вопрос-  как это зацикливание в макросе прописать ?

[Дмитрий Щербаков(The_Prist)]

Можно так, в лоб:

Код: (vb)

Sub mac1()
    Dim i As Integer
    Range("A1") = 0
    For i = 1 To 1000
        Range("A1") = Range("A1") + 1
        Sleep 10
        DoEvents
    Next i
    Call mac1
End Sub

хотя я бы сделал, скорее всего так:

Код: (vb)

Sub mac1()
    Dim i As Integer
    Range("A1") = 0
    For i = 1 To 1000
        Range("A1") = Range("A1") + 1
        Sleep 10
        DoEvents
    Next i
    Application.OnTime Now, "mac1"
End Sub

Ну а т.к. в цикле есть DoEvents, то прерывание в любой момент можно сделать при помощи Ctrl+Break

[mv6677]

The_Prist, спасибо - оба варианта работают.