Hi harold

basically this structure should help you

-------------------------------------------------------------
Private Sub Workbook_BeforeClose(Cancel As Boolean)

If MsgBox("bla", vbYesNo) = vbNo Then
Cancel = True
End If

End Sub
------------------------------------------------------------

just change the msgbox to your wishes.

hth

Carlo