More details needed. Where are you using this code? What do you mean
"but the code execution never returns after that
line. It just dissapears and subsequently not any other code is
executed."

Returns where? Do you mean you are using calling this Sub from another
routine?


--JP


On Mar 29, 2:34*pm, "Jack" <replyto@it wrote:
Hello,
I have this routine to disconnect from Excel:

Public Sub XLDisconnectFromExcel()
* * If Not moExcelWS Is Nothing Then Set moExcelWS = Nothing
* * If Not moExcelApp Is Nothing Then Set moExcelApp = Nothing
End Sub

When the second line of that code is executed and moExcelApp is "Microsoft
Excel" then that line of code is executed properly (Excel.exe is process
terminated in Task Manager) but the code execution never returns after that
line. It just dissapears and subsequently not any other code is executed.
What can be wrong?

To connect to Excel I use this code:
* * Set moExcelApp = GetObject(, "Excel.Application")
* * If moExcelApp Is Nothing Then
* * * * Set moExcelApp = CreateObject("Excel.Application")
* * End If

Jack