Peter expressed precisely :
Hi.
I did find a way:
Sub Workbook_BeforeClose(Cancel As Boolean)
a = MsgBox("Fik du rettet navnet på det nye ark ?", vbYesNo)
If a = vbNo Then Cancel = True
end sub
Thank you
Peter
Congratulations!!! That's exactly how it's done...
--
Garry
Free usenet access at
http://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc