Aşağıdaki kod çalıştığında aktif kitapta yeni bir sayfa açacak ve sayfanın kod penceresine InsertLines kısmındaki kodları ekleyecek.
Sub Kod_Sayfasina_BuKodla_Makro_Yaz()
Dim Ekle As Worksheet, Modulum As VBIDE.CodeModule, i As Long
Set Ekle = ActiveWorkbook.Worksheets.Add
Set Modulum = Ekle.Parent.VBProject.VBComponents(Ekle.Name).CodeModule
    i = Modulum.CreateEventProc("Activate", "Worksheet")
        With Modulum
            .InsertLines i + 1, "Dim metin As String"
            .InsertLines i + 2, "metin = ""ExcelVBA.Net"""
            .InsertLines i + 3, "MsgBox metin "
            .DeleteLines (.CodePane.CodeModule.CountOfLines - 1)
        End With
End Sub