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