Makro durdurma

[zipir123]

Slm
excelde modül 1 içesine yazılmış şu kodu durduramıyorum.
Sub Makro1()
Application.OnTime Now + TimeValue("00:00:10"), "Makro1"
'
' Makro1 Makro
' Makro deste tarafından 19.04.2009 tarihinde kaydedildi.
'

'
Range("A110").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Range("A1").Select
ActiveCell.FormulaR1C1 = "excel web tr"
Range("A1").Select
Selection.Copy
Range("A210").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("B1").Select
End Sub

Sn. Zafer'in
Sub zamankapat()
Application.OnTime Now + TimeValue("00:00:10"), "Makro1", Schedule:=False
end sub

Sn. Süleyman Özyüksel'in
Sub Düğme2_Tıklat()
End
End Sub

Sn. Leumruk'un
Sub Kaydet10dk()
If [a1]=* Then Exit Sub
Application.OnTime Now + TimeValue("00:10:00"), "Kayıt10"
End Sub

kodlarını kendi makroma göre uyarlayıp denedim makro1 i durduramıyorum
Makro 1 'i bir buton veya herhangi bir tuş kombinasyonu ile durdurmak mümkünmü?
Teşekkür ederim.

 

[leumruk]

Selamlar,
Farklı bir yöntem kullandım. Ekli dosyayı deneyiniz.

 

[zipir123]

makro durdurma

Selamlar,
Farklı bir yöntem kullandım. Ekli dosyayı deneyiniz.

Sn. Leumruk
yazmış olduğunuz makroyu inceledim güzel bir yöntem bulmuşsunuz. Aç Kapa düğmesine basmadan makro devreye girmiyor. veya devreden çıkmıyor. benim asıl yapmak istediğim bir düğmeden çalıştırıp diğer düğmeden durdurmaktı. İlginize teşekkür ederim.