создание нового модуля

[nik1905]

Здравствуйте!

Подскажите, как решить следующий вопрос:

У меня есть макрос, который открывает файл, производит с ним определенные операции и сохраняет его. В список этих операций мне необходимо добавить следующую:
Чтобы создавался новый модуль с другим макросом, но он не прорабатывал, а просто была бы возможность при следующем открытии иметь возможность использовать его.

Если кто сможет, подскажите, очень нужно... Спасибо!

[IgorGO]

приблизительно так

Sub МакросКоторыйУмеетДелатьМакрос()
  With ThisWorkbook.VBProject.VBComponents
    Set mdl = .Add(vbext_ct_StdModule)
    cd = "sub NewSub" & vbCrLf
    cd = cd & "  msgbox ""Это сообщение из модуля " & mdl.Name & _
    " созданное программно."", vbokonly, ""Привет! Поздравляю!""" & vbCrLf
    cd = cd & "end sub" & vbCrLf
  End With
  mdl.CodeModule.InsertLines 1, cd
  Run "newsub"
End Sub

детали тщательно подганяйте напильником.
зайдите в ВБЕ, запустите МакросКоторыйУмеетДелатьМакрос, он вставит в проект еще один модуль, вставит в него код процедуры NewSub и выполнит ее.