How many Instances of Excel are open

[julhs]

In Workbook1 in its “ThisWorkbook” module I have a “Workbook_Open” event that automatically opens Workbook2 (reference file) when Workbook1 is opened.

Question; are Wb1 and Wb2 open in the same instance of Excel or in 2 separate instances

 

[julhs]

All it that is meant to occure is: Open Book1 and it auto opens Book2, close Book1 via Red X and BOTH workbooks are Saved and Closed.

This is placed in ThisWorkbook module of Book1.xlsm

Sub Workbook_Open()
  Dim pWB As Workbook
       Application.ScreenUpdating = False
     Workbooks.Open ("C:\Users\Me\Documents\My Documents\Book2.xlsm")
   Set pWB = ThisWorkbook
    With pWB.Windows(1)
       pWB.Activate
    End With
     Application.ScreenUpdating = True
  End Sub

This is in ThisWorkbook module of Book1.xlsm

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   Dim wb As Workbook
       Application.ScreenUpdating = False
     'Loop through each workbook
   For Each wb In Application.Workbooks
     'Close the workbooks and save changes.
   If wb.Name <> ThisWorkbook.Name Then
      wb.Close SaveChanges:=True
     DoEvents
    End If
  Next wb
    ThisWorkbook.Save
     Application.Quit
     Application.ScreenUpdating = True
End Sub

If it’s of any any help, have added a snip image of Task Manger after “Save/Close” sub has run.

 

[Alex Blakenburg]

You didn't say what you expect it to do and what it is doing.
When I run it that code closes both workbooks and any others that are open at the time and quits excel.
I thought that is what you wanted to do

 

[julhs]

You must have read #11 before I finished making an edit.

All it that is meant to occure is: Open Book1 and it auto opens Book2, close Book1 via Red X and BOTH workbooks are Saved and Closed

Yes it is exactly what I want to, but I can’t get to the bottom of why I still have the Ghost/Blank instance of Excel open
as you can see in the snip image

 

[Alex Blakenburg]

Close excel and check you task manager.
If there is still an Excel instance running kill it in task manager.
Open your book 1 by double clicking the workbook in explorer which should open book 2
Check your task manager again. How many instances of Excel do you have open ? It should only be 1.

 

[julhs]

Think snip image below will show you better than I can describe.
"001 Fert-Chem-Nozzle........." is the one I've previously referred to as Book1 (is the primary)
and "aaFert_&_Chem……." is Book2

 

[Skyybot]

See if this closes all tasks:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
   Dim wb As Workbook
       Application.ScreenUpdating = False
     'Loop through each workbook
   For Each wb In Application.Workbooks
     'Close the workbooks and save changes.
   If wb.Name <> ThisWorkbook.Name Then
      wb.Close SaveChanges:=True
    End If
  Next wb
    ThisWorkbook.Save
    ThisWorkbook.Close
    Application.ScreenUpdating = True
 Application.Quit
End Sub

 

[julhs]

Appreciate your suggestion.
Afraid to say it didn’t close ALL instances of Excel.

I currently have 3 Subs in standard modules (all slightly different) that when attached to a command button, ALL of them save & close ALL instances of Excel that are open. But NONE of them do it when re-titled “Before Close” and placed in Book1 (primary book "ThisWorkbook".)
It’s not in my nature to leave something unresolved (dog with a bone syndrome) but on this occasion I am seriously thinking that sorting this is ALL a waist of everybody’s time!!!???

 

[Alex Blakenburg]

If you follow the same steps as in Post #15 but in task manager click on processes, do you EXCEL.EXE twice ?
I assume you are on windows 7 right ?

 

[julhs]

Yes Windows 7.
Only one occurrence of EXCEL.EXE*32

 

[Alex Blakenburg]

That has me beat. If after you open the workbook which then opens the other workbook you only have one EXCEL.EXE running, then application.quit should have closed the only instance that is running.