Создать макрос через маакрос)

[Kuraj]

Кто знает как создать макрос через макрос)) То есть запустил 1 макрос в нём прописано чего надо записать во второй и скопировать в 2 макрос исходный код взятый например из ячейки)

Если есть какиенить мысли говорим... А если есть материал почитать так тем более

[EducatedFool]

http://www.programmersforum.ru/showp...49&postcount=2

With TempForm.CodeModule
    Line = .CountOfLines
    .InsertLines Line + 1, "Sub CommandButtonl_Click()"
    .InsertLines Line + 2, "MsgBox ""Привет!"""
    .InsertLines Line + 3, "Unload Me"
    .InsertLines Line + 4, "End Sub"
End With

PS: В Вашем случае, скорее всего, задача решается проще.
К программному созданию макросов есть необходимость прибегать лишь в исключительных случаях.

Информация по теме есть здесь.

[Kuraj]

Вот если так сделать без with то как мне работать с книгой например я её открыл и хочу в событие open записать?

        Line = .CountOfLines
        .InsertLines Line + 1, "Private Sub Workbook_Open()"
        .InsertLines Line + 2, "MsgBox "Привет!""
        .InsertLines Line + 3, "Unload Me"
        .InsertLines Line + 4, "End Sub"

[Kuraj]

With Activebook.VBProject.VBComponents.I tem("ЭтаКнига").CodeModule
Line = .CountOfLines
.InsertLines Line + 1, "Private Sub Workbook_Open()"
.InsertLines Line + 2, "MsgBox ""хело"""
.InsertLines Line + 3, "Unload Me"
.InsertLines Line + 4, "End Sub"
End With

Где ошибка?

[Teslenko_EA]

Здравствуйте Kuraj.
ошибка в обращении к объекту:

With ThisWorkbook.VBProject.VBComponents.Item("ЭтаКнига").CodeModule
    Line = .CountOfLines
    .InsertLines Line + 1, "Private Sub Workbook_Open()"
    .InsertLines Line + 2, "    MsgBox ""хело"""
    .InsertLines Line + 3, "    'Unload Me" ' команда выгружающая форму в книге не нужна
    .InsertLines Line + 4, "End Sub"
End With

Евгений.
P.S. и в отсутствии обращения к форуму, "Если есть какиенить мысли говорим..." - мысль только одна, Вы не умеете здороваться.