Çalışma kitabındaki Thisworkbook_change gibi Modulleri sil

[hsayar]

    Aktif Çalışma kitabına ait modules kodlarını sil
    Application.DisplayAlerts = False
    On Error Resume Next
        For Each ModX In ActiveWorkbook.VBProject.VBComponents
            Set VBComp = ActiveWorkbook.VBProject.VBComponents(ModX.Name)
            ActiveWorkbook.VBProject.VBComponents.Remove VBComp
        Next
    On Error GoTo 0
    Application.DisplayAlerts = True

yukarıdaki kodlar bir çalışma kitabındaki moduller siliniyor.

peki sayfa1, sayfa2 ve thisworkbook altındaki deki modulleri nasıl sileriz?

 

[hsayar]

arkadaşlar anlatmak istediğimi analatamış olabilirim
boş bir excel çalışma sayfasında kod görüntüle deyince görüdüğümüz

+vbaproject(kitapad&#305
++Mic.Exc.Objects
+++Sayfa1
+++Sayfa2
+++Thisworkbook

işte bu +++ işareti olanların içerisinde herhangi bir kod varsa bunları silmenin yolu varmıdır.?

 

[hsayar]

2. mesajımdaki sorum güncelliğini korumaktadır. alakanız içöin teşekkürler