Sayfa silinmesi için kod

[sward175]

Herkese ,Günaydın.

Çoklu bir excel dosyam var. Bu dosyanın "Kalibrasyonlar" isimli sayfasında herhangi bir değişiklik yapılması durumunda yandaki " Stok" sayfasının silinmesini istiyorum.
Bu konuda yardımlarınızı rica ederim.
Saygılarımla,
sward175

 

[hamitcan]

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.DisplayAlerts = False
    Sheets("Stok").Delete
    Application.DisplayAlerts = True
End Sub

 

[sward175]

Sayın, hamitcan Bey,
Teşekkürlerimi sunar, Nice güzel günler dilerim.
Sward175