Excel vba, withevents, vbe events

Hi,

I'm working with application events and want to control the following workflow:

1. When application starts, it creates xlApp WithEvents (in a class module)

Private WithEvents xlApp As Excel.Application

2. I want to stop the standard 'SaveAs' dialog showing but instead have created a Userform (as my new SaveAs). This is to be triggered with either the xlApp_WorkbookBeforeClose or xlApp_WorkbookBeforeSave procedures.

3. When calling it via the BeforeClose event and which triggers the Save event, I have chosen to set Cancel=True which stops the standard dialog and then I call my Userform - All OK so far.

4. But when I decide to click Cancel via the Userform (where I would like to close the workbook as unsaved), I'm still being prompted for the standard "Save, Don't Save and Cancel" prompt as it attempts to close the workbook again.

How do I stop this from showing again as the workbooks tries to close?

I added boolean flags to test and trap for this in order to force a close method using wb.Close False but this crashes the whole application.

The Cancel argument via the xlApp_WorkbookBeforeClose procedure is of no use as this just stops the close event being triggered altogether.

Some help would be ap[preciated please
csimms@fsmail.net