コードを含む別のテキストファイルを使用せずに、モジュールにコードを追加できます。

以下のマクロは、これを行う方法を示しています。追加するコードに含めるようにマクロをカスタマイズする必要があります：

Sub InsertProcedureCode(ByVal wb As Workbook, ByVal InsertToModuleName As String)

' inserts new code in module named InsertModuleName in wb

' needs customizing depending on the code to insert

Dim VBCM As CodeModule

Dim InsertLineIndex As Long

On Error Resume Next

Set VBCM = wb.VBProject.VBComponents(InsertToModuleName).CodeModule

If Not VBCM Is Nothing Then

With VBCM

InsertLineIndex = .CountOfLines + 1

' customize the next lines depending on the code you want to insert

.InsertLines InsertLineIndex, "Sub NewSubName()" & Chr(13)

InsertLineIndex = InsertLineIndex + 1

.InsertLines InsertLineIndex, _

"    Msgbox ""Hello World!"",vbInformation,""Message Box Title""" & Chr(13)

InsertLineIndex = InsertLineIndex + 1

.InsertLines InsertLineIndex, "End Sub" & Chr(13)

' no need for more customizing

End With

Set VBCM = Nothing

End If

On Error GoTo 0

End Sub

例：

InsertProcedureCode Workbooks("WorkBookName.xls"), "Module1"