'Удаление всех макросов, форм и модулей, а также кодов из Листов и ЭтаКнига
Sub Delete_All_Code_And_Macro_in_ActiveBook()
     Dim oVBComponent As Object
       
     For Each oVBComponent In ActiveWorkbook.VBProject.VBComponents
        On Error Resume Next
        With oVBComponent
           Select Case .Type
           Case 1   'Модули
              .Collection.Remove oVBComponent
           Case 2   'Модули Класса
              .Collection.Remove oVBComponent
           Case 3   'Формы
              .Collection.Remove oVBComponent
           Case 100   'ЭтаКнига, Листы
              .CodeModule.DeleteLines 1, .CodeModule.CountOfLines
           End Select
        End With
     Next
End Sub