coding to close excel

[spurs]

I am trying to get a macro to if necessary shut down the excel app where the macro itself is running from

Currently at the end of the macro, I have the coding:


Application.DisplayAlerts = False
ActiveWorkbook.Close

10 End Sub

The problem is that when this coding is reached, it does shut down the active workbook where the macro is contained
but
it opens a new blank workbook at the same time - which I don't want it to do
How do I avoid it from opening up a new workbook?

 

[DanteAmor]

Do you have another macro in the Thisworkbook events?
I ask it because I did the test of your code, it closes the file and it does not open another file.

Try:
ActiveWorkbook.Close False

 

[spurs]

this is what I have

Application.OnTime Now, "'" & ThisWorkbook.Name & "'!" & "Workbook_OpenStage2"


The macro Workbook_OpenStage2 is the macro I was referring to above

 

[spurs]

Using
Try:
ActiveWorkbook.Close False

did not prevent a new workbook from opening

 

[DanteAmor]

Could you put your full macros?
That would help a lot.

This line is in an event?

[/COLOR][COLOR=#333333]Application.OnTime Now, "'" & ThisWorkbook.Name & "'!" & "Workbook_OpenStage2" [/COLOR][COLOR=#333333]

That line causes a new book to be opened, you have to clean the previous procedure using Schedule:=False