Макрос для вставки макроса в Excel

Sub Procedure_1()
 
    'Здесь нужно указать, где находится файл с модулем.
    Const sFileName As String = "C:\Documents and Settings\Пользователь\Рабочий стол\Module2.bas"
 
    'Добавление модуля в активную книгу.
    ActiveWorkbook.VBProject.VBComponents.Import Filename:=sFileName
 
End Sub

Const z As String = vbNewLine
 
Dim n As Integer: n = 20
 
' -------------------------------------------------------------------
' --- в модуль "ЭтаКнига" -------------------------------------------
Dim s As String
s = ""
s = s & "Option Explicit" & z & z
 
s = s & "Private Sub Workbook_Open()" & z & z
 
s = s & "    If Environ(""UserName"") = ""pupkin"" Then" & z
s = s & "        Cells(1, " & n & ").EntireColumn.Hidden = False" & z
s = s & "    End If" & z
s = s & "End Sub"
 
Dim vbComp As VBComponent
Set vbComp = ThisWorkbook.VBProject.VBComponents("ЭтаКнига")
 
With vbComp.CodeModule
    .InsertLines .CountOfLines + 1, s
End With
 
Set vbComp = Nothing
' --- в модуль "ЭтаКнига" -------------------------------------------
' -------------------------------------------------------------------

Sub AddMacro()
With ThisWorkbook.VBProject.VBComponents
    .Import ThisWorkbook.Path \ Module1.bas
    .Import ThisWorkbook.Path \ mw2.frm
End With
End Sub

.Import ThisWorkbook.Path & "\Module1.bas"

NormalTemplate.VBProject.VBComponents.Item("Module1") = True

function IsModuleW(NameModule) as boolen
On error resume next
set PrMod=NormalTemplate.VBProject.VBComponents.Item(NameModule)
If err=0 then IsModulesW=true: else: IsModulesW=false:
end function

on error resume next
if NormalTemplate.VBProject.VBComponents.Item("Module1") Is Nothing then
   'если работает
else
   'если не работает
end if

Sub QWERT()
Debug.Print IsModul("Module1")
End Sub
Function IsModul(N)
Dim Q
IsModul = False
On Error GoTo 1
Set Q = NormalTemplate.VBProject.VBComponents.Item(N)
IsModul = True
1
End Function

Function IsModul(N)
'объявляем переменную
Dim Q
IsModul = False
'если модуля нет сразу переходим к выполнению функции со строки с единицей
On Error GoTo 1
'объявляем значение переменной
Set Q = NormalTemplate.VBProject.VBComponents.Item(N)
IsModul = True
1
End Function

 Function IsModul(N)
Dim Q 'объявляем переменную
IsModul = False ' назначаем значение функции на случай ошибки
On Error GoTo 1 ' говорим компилятору что делать в случае возникновения ошибки
Set Q = NormalTemplate.VBProject.VBComponents.Item(N) ' пытаемся назначить переменной модуль
IsModul = True ' если получилось значение функции "ДА"
1 ' если назначить не получилось из-за отсутствия компилятор перходит из строки с ошибкой сюда пропуская назначение "Да"
End Function