Hi Airborne
Ken's done all the hard work so.....
[VBA]
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Cancel = True
MsgBox "Please close by using the button"
End Sub
[/VBA]