eModul değişkenine dilediğiniz component adını yazabilirsiniz. Tabi Makrom makrosunu da silmek istediğiniz makro ismine göre değiştirebilirsiniz.

Sub Tum_Makroyu_Sil()
Dim evnVBA As VBIDE.VBProject, evnModul As VBIDE.VBComponent
Dim Modulum As VBIDE.CodeModule, eModul As String
    eModul = "Module1"
    Set evnVBA = ThisWorkbook.VBProject
    Set evnModul = evnVBA.VBComponents(eModul)
    Set Modulum = evnModul.CodeModule
        With Modulum
            .DeleteLines .ProcStartLine("Makrom", 0), .ProcCountLines("Makrom", 0)
        End With
            MsgBox "'Makrom' makrosu silinmiştir", vbInformation, "Www.ExcelVBA.Net"
           
End Sub

alıntıdır...(kaynak:excelvba.net)