Excel (Yanıt Vermiyor) Uyarısı

[1Al2Ver]

Merhaba,

"ÇİZELGE" sayfasında kayıtlı koda eklediğim aşağıdaki sette,

Sub OLUŞTUR()
.....
..........
......................

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
......................
.....................

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
End Sub

Hızlı Erişim Çubuğunun üstüne ; dosya adını vererek.....xlsm-Excel (Yanıt Vermiyor) şeklinde bir uyarı veriyor ve kod bitene kadar bu uyarı ekranda kalıyor, ancak hesaplamayı da bitiriyor ve çizelgeye işliyor,

BuÇalışmaKitabı'nda aşağıdaki komut ile başlayan kod var,

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

İsteğim ; Anılan hatayı almadan, kodun işlevini ek kısa süreye indirmek,

Teşekkür ederim.