Interupt close

It depends on what the dialog box is that pops up when you try to close. Say if you're using a msgbox with vbYesCancel then use the following code:

response = MsgBox("Do you want to close this book?", vbOKCancel, "Close?")
If response = vbCancel Then
Exit Sub
Else
ActiveWorkbook.Close
End If

If you're not using a msgbox then you can probably incorporate the code above into your dialog box somewhere...

Hope this helps

Cory

Add this before your code:

Application.DisplayAlerts=False

then change the False to True after your code, this will make Excel choose the default option for the alert without displaying it. Test it, it works most of the time. JSW