Че-то не понял!

Нет, не удалять весь модуль, а удалять определенные коды макросов с Листа где они написаны. Я думаю нам надо сперва выбрать по имени некоторые только коды и затем удалить с листа.

Сервис -> Макрос -> Безопасность -> Надежные издатели -> [+] Доверять доступ к Visual Basic Project
 
Для модуля первого листа:  
Sub TestVBE()  
MsgBox Application.VBE.VBProjects.Item(1).VBComponents(2).CodeModule.Lines(1, 1)    
End Sub  
 
Циклом или ещё как подбираешь требуемые циферки и DeleteLines(от,сколько).

Вот нашёл  
 
Source: http://msoffice.nm.ru/faq/macros/module.htm#faq47  
 
Sub DeleteProcedure()  
Dim iProcedure As String  
Dim iVBComponent As Object  
Dim iStartLine As Long  
Dim iCountLines As Long  
Dim Killed As Boolean  
   iProcedure = InputBox(Prompt:="Введите имя макроса," & _  
   vbCrLf & "который требуется удалить", Title:="Удаление макроса")  
   If iProcedure$ = "" Then _  
   MsgBox "Вы не указали имя ненужного макроса", 48, "Ошибка": Exit Sub  
   For Each iVBComponent In ActiveWorkbook.VBProject.VBComponents  
       With iVBComponent.CodeModule  
            If .Find("Sub " & _  
               iProcedure$, 1, 1, .CountOfLines, 1) = True Then  
               iStartLine& = .ProcStartLine(iProcedure$, 0)  
               iCountLines& = .ProcCountLines(iProcedure$, 0)  
               .DeleteLines iStartLine&, iCountLines&  
               Killed = True  
               Exit For  
            End If  
       End With  
   Next  
   If Killed = True Then  
       MsgBox "Макрос " & iProcedure$ & " удалён!", 64, "Удаление макроса"  
   Else  
       MsgBox "Макрос " & iProcedure$ & " не найден!", 48, "Удаление макроса"  
   End If  
End Sub

{quote}{login=to........Pavel55}{date=25.06.2008 03:51}{thema=}{post}Спасибо. Знаешь для чего это нужно было? Просто я когда копирую определенный лист, вот там на создавшемся новом листе надо было удалить некоторые макросы, прибывшие от того листа. Вот я хотел чтоб когда лист копировался внутри этого кода пришить удаление некоторых кодов, так как в новом листе некоторые из них непонадобиться!  
Т.е мне не надо выводить форму, что спрашивала которую удалить, а я заранее напишу какую надо удалить! (Удалять не с модуля а с образовавшегося копий листа)  
Заранее спасибо!{/post}{/quote}  
А не проще было эти лишние макросы хранить не  модуле листа, а в модуле проекта (Module1)?  
Если же это код, реагирующий на события листа, то его можно с минимальными корректировками переписать в модуль ЭтаКнига.

{quote}{login=:)}{date=25.06.2008 11:45}{thema=Re: }{post}{quote}{login=to........Pavel55}{date=25.06.2008 03:51}{thema=}{post}Спасибо. Знаешь для чего это нужно было? Просто я когда копирую определенный лист, вот там на создавшемся новом листе надо было удалить некоторые макросы, прибывшие от того листа. Вот я хотел чтоб когда лист копировался внутри этого кода пришить удаление некоторых кодов, так как в новом листе некоторые из них непонадобиться!  
Т.е мне не надо выводить форму, что спрашивала которую удалить, а я заранее напишу какую надо удалить! (Удалять не с модуля а с образовавшегося копий листа)  
Заранее спасибо!{/post}{/quote}  
А не проще было эти лишние макросы хранить не  модуле листа, а в модуле проекта (Module1)?  
Если же это код, реагирующий на события листа, то его можно с минимальными корректировками переписать в модуль ЭтаКнига.{/post}{/quote}  
Добрый день!  
Например, есть OptionButton25 на Лист1. Код обработки события Click написан в Лист1. Как перенести код в Модуль1, чтобы работало оттуда, подскажите?  
Спасибо!

Спасибо, а если перенести код в модуль ЭтаКнига?  
Нужно, чтобы в модулях Лист1, Лист2 и т.д. не было кода..