Hi mdmackillop, that works. I added the line [VBA]Application.EnableEvents = False[/VBA] (as you said) to my quit routine. That routine has knock-on effects on other sheets unfortunately. I'm working on that still. [VBA]Sub Quit()Application.EnableEvents = False
If MsgBox("Close Data tool Without Saving Other Excel Files?", _
vbQuestion + vbYesNo) = vbYes Then
Application.ScreenUpdating = False
Application.Quit
Workbooks("Data1").Close saveChanges:=False
ActiveWorkbook.Close saveChanges:=False
Else
End
End If

End Sub[/VBA] I would like the routine to check if other workbooks are open and then ask the question as above in the msgbox, otherwise it should close right away.

But maybe I should transfer this to another thread. Ken works on this thread while his wife reads novels but my wife is already sleeping . I'll answer him and then it's off to bed.

Thanks and regards. vbmenu_register("postmenu_10634", true);