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