Insert code by code

[Filips Benoit]

Dear All,

I create a new excel workbook from a template by using
Selection.PasteSpecial so the code in the template is not copied. But i want
some new code in the new workbook!

Is it possible to insert code ( workbook_Before_close) in the new workbook.

Filip

 

[Frank Kabel]

Hi
siehe:
http://www.cpearson.com/excel/vbe.htm

 

[Bob Phillips]

Dim StartLine As Long

With ActiveWorkbook.VBProject.VBComponents("ThisWorkbook").CodeModule
StartLine = .CreateEventProc("BeforeClose", "Workbook") + 1
.InsertLines StartLine, _
"Dim ans" & vbCrLf & _
" ans = Msgbox( ""All OK"",vbOYesNo)" & vbCrLf & _
" If ans = vbNo Then Cancel = True"
End With