Çalışma kitabındaki tüm açıklamaları silme

[kneehot]

Arkadaşlar merhaba, aradım fakat bulamadım yapmak istediğim şeyi. Başlıkta da yazdığım gibi yapmak istediğim, bir makro ile çalışma kitabındaki tüm açıklamaları silmek istiyorum. Yardımlara çok teşekkürler.

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Dosyadaki_Tum_Aciklamalari_Sil()
    Dim Sh As Worksheet
    
    For Each Sh In ThisWorkbook.Worksheets
        Sh.Cells.ClearComments
    Next
    
    MsgBox "Dosyadaki tüm açıklamalar silinmiştir.", vbInformation
End Sub

 

[kneehot]

Deneyiniz.

Option Explicit

Sub Dosyadaki_Tum_Aciklamalari_Sil()
    Dim Sh As Worksheet
   
    For Each Sh In ThisWorkbook.Worksheets
        Sh.Cells.ClearComments
    Next
   
    MsgBox "Dosyadaki tüm açıklamalar silinmiştir.", vbInformation
End Sub

Çok teşekkürler...