Soru worksheet activate

[35ibo45]

Arkadaşlar selam.

Private Sub Worksheet_Activate()
Cells(5, 3).Activate
If [C20] = 0 Then
[D17] = "KASADA PARAMIZ YOK"
ElseIf [C20] < 0 Then
[D17] = "KASADA " & Format([C20] * -1, "#,##0.00") & " TL. AÇIK VAR"
ElseIf [C20] > 0 Then
[D17] = "KASADA " & Format([C20], "#,##0.00") & " TL. PARAMIZ VAR."
End If
End Sub

kodları, sayfa aktif olduğunda çalışıyor.
Ben, sayfa aktif olduğunda değil de sayfada değişiklik olduğu anda çalışması için, kodların ilk satırını,

Private Sub Worksheet_Change(ByVal Target As Range)

şeklinde değiştiriyorum fakat kodlar çalıştığında dosya kendini kapatıyor.
Sebebi ve çözümü nedir?
Şimdiden teşekkürler.

 

[ÖmerFaruk]

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    Cells(5, 3).Activate
    If [C20] = 0 Then
        [D17] = "KASADA PARAMIZ YOK"
    ElseIf [C20] < 0 Then
        [D17] = "KASADA " & Format([C20] * -1, "#,##0.00") & " TL. AÇIK VAR"
    ElseIf [C20] > 0 Then
        [D17] = "KASADA " & Format([C20], "#,##0.00") & " TL. PARAMIZ VAR."
    End If
    Application.EnableEvents = True
End Sub

 

[35ibo45]

Ömer Faruk arkadaşım.
İlginize, bilginize ve emeğinize sağlık.
İşlem tamam.. Çok teşekkür ederim.