Sub RemoveVBACodeProcedure(SourceWb As Workbook, ComponentName As String, ProcName As String)
'удаляет из заданного модуля заданной книги заданную процедуру
'SourceWb       - объект - книга, из которой нужно удалить процедуру
'ComponentName  - строка, название модуля, из которого нужно удалить процедуру
'ProcName       - строка, процедуры, которую нужно удалить
Dim iVBComponent As VBComponent
Dim StartProcLine As Long
Dim CountProcLine As Long

    Set iVBComponent = SourceWb.VBProject.VBComponents(ComponentName)

    StartProcLine = iVBComponent.CodeModule.ProcBodyLine(ProcName, vbext_pk_Proc)
    CountProcLine = iVBComponent.CodeModule.ProcCountLines(ProcName, vbext_pk_Proc)

    If StartProcLine + CountProcLine >= iVBComponent.CodeModule.CountOfLines Then
        CountProcLine = CountProcLine -  1 
    End If

    iVBComponent.CodeModule.DeleteLines StartProcLine, CountProcLine

    Set iVBComponent = Nothing

End Sub