closing the blank instance of Excel via VBA

Hello

For a certain reason I creating "Excel.Application"
then opening a workbook with workbooks.open method
but the book opens in a new instance of Excel ,,ok ok that is ok

What I want is simply to check if there are some blank instances of Excel then close them is it possible?
coz when I use :
Application.Quit
It closes the workbook also
rephrased question:Can we close the blank instances of Excel?,,,if they exist for some reasons
Please do not think about other options to avoid blank instances
this exists and now how to close it without closing the workbook that is opened in another instance of Excel?

Best Regards
Imran Bhatti

Are you somehow having blank workbooks opening and now need to close all except active one

Private Sub Workbook_Open()
Dim WB As Workbook
For Each WB In Workbooks
     If Not (WB Is ActiveWorkbook) Then WB.Close
Next
End Sub

Thanks Sintek

Sorry I should have clarify what I meant by blanks instances of Excel.
If we open a workbook and then close it by clicking the X button of the workbook and not the top excel X button .then we see a blank excel instance.I have such instance with a separate window.let me attach 2 photos of'em.
The above is the blank instance that does not have a workbook at all.
The other one has a workbook in it and I don't want to close it.

Why are you opening blank windows?

Sintek I am creating a vbs file with macro. closing the workbook and then reopening it but this time with the vbs script.and vbs script is also controlled from the macro in the workbook. vbs code that is generated and the run is

 On Error Resume Next

Dim WshShell
Set WshShell = CreateObject("WScript.Shell")

MsgBox "Click OK to complete the setup process."
Dim strRegPath
strRegPath = some action here
WScript.echo strRegPath
WshShell.RegWrite strRegPath, 1, "REG_DWORD"

If Err.Code <> o Then
End If

Set objExcel = CreateObject("Excel.Application")
With objExcel
.Workbooks.Open("C:\Users\Bhatti\Desktop\Copy of 123 (1).xlsm")
.Visible = True
End With
objExcel.windowstate=-4137

What are you actually trying to do?

Found the solution myself.Thanks for your time as well.

Please post your solution so that others may learn from this Thread.

Well Sintek
I was actually writing a sub routine that will close the application but in between that routine I was creating a VBScript and then closing the workbook.
There I used "Application.Quit"
I had mentioned in my first post in the same thread that I had tried "Applicatioin.Quit" but no effect.But I was writing that in the VBSript and not in the main routine.
In the main routine there was still "thisworkbook.close" which was replaced by "Applicatioin.Quit"


simply speaking: [QUOTE]The problem was that I was not quitting the Application.[/QUOTE]