Makroyu durdurma

[cigerkarakaya]

Sub Deneme()
Do
DoEvents
[a3].Value = Format(Time, "hh:nn:ss")
Loop
End Sub

Bu makroyu Değiştirme butonuna basılı iken çalıştırmak, tekrar bastığımda da durdurmak istiyorum. Bir türlü nasıl yapacağımı bulamadım.

 

[Murat OSMA]

İlk bastığınızda başlar, ikincisinde durur.

[FONT="Trebuchet MS"]Sub Emre()
    Static i As Byte
    i = i + 1
    If i <> 1 Then End
    Do
        DoEvents
        [a3].Value = Format(Time, "hh:nn:ss")
    Loop
End Sub[/FONT]