Soru Bir sub çalışırken esc tuşu ile durdurmak

[Sezerkaratas]

Uzun süren bir makrom var ve bu makro işlemleri internet explorerda yapıyor yani ekranda internet explorer açık ve send keyslerle işlem yapıyor.
Bu macro çalışırken esc tuşuna bastığımda macroyu durdurabilmek istiyorum yardım eder misiniz

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub TEST()
    Dim X As Long
    
    On Error GoTo Son
    
    Application.EnableCancelKey = xlErrorHandler
    
    DoEvents
    
    Range("A:A").ClearContents
    
    For X = 1 To 1000000
        Cells(X, 1) = X
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
    
    Exit Sub

Son:
    MsgBox "Makro ESC tuşu ile durduruldu!", vbCritical
End Sub

 

[Sezerkaratas]

teşekürler deniyeceğim

 

[Sezerkaratas]

Deneyiniz.

Option Explicit

Sub TEST()
    Dim X As Long
   
    On Error GoTo Son
   
    Application.EnableCancelKey = xlErrorHandler
   
    DoEvents
   
    Range("A:A").ClearContents
   
    For X = 1 To 1000000
        Cells(X, 1) = X
    Next
   
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
   
    Exit Sub

Son:
    MsgBox "Makro ESC tuşu ile durduruldu!", vbCritical
End Sub

malesef işe yaramadı nerde yanlış yapıyorum acaba

 

[Korhan Ayhan]

Kullandığınız kodları paylaşın inceleyelim.