'----------------------------------------------------------------
Sub AddWorkbookEventProc()
'----------------------------------------------------------------
Dim StartLine As Long

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

End Sub




--
__________________________________
HTH

Bob

"Catalin" wrote in message
...
Hi,

Pls help me with the following problem:

I have a lot of workbooks (75) in which I need to insert a BeforeClose
Event.
Can you help me to do it programatically?

Thanks a lot