I do not believe it is my code related.
As I said it works 99% times.
I need to know what causes that 1% failure.
Please see below:
===============
Public WithEvents moExcelApp As Excel.Application
Set moExcelApp = GetObject(, "Excel.Application")
If moExcelApp Is Nothing Then 'when not sheet is opened
Set moExcelApp = CreateObject("Excel.Application")
If moExcelApp Is Nothing Then
Debug.Print "Excel app NOT found!"
ExcelApp = 1: Exit Sub
Else
moExcelApp.EnableEvents = True
End If
End If
"Chip Pearson" <(E-Mail Removed)> wrote in message
news

(E-Mail Removed)...
> You might want to post the relevant portion of the code.
>
> Cordially,
> Chip Pearson
> Microsoft Most Valuable Professional
> Excel Product Group
> Pearson Software Consulting, LLC
> www.cpearson.com
> (email on web site)
>
>
> On Tue, 14 Oct 2008 16:00:13 -0400, "Jack" <replyto@it> wrote:
>
>>Hello,
>> I have developed the stand alone application which interacts
>>with Excel spreadsheet.
>>It works fine on most Windows and computers, but from time to time I have
>>message from the user that my app cannot 'find' any opened spreadsheets,
>>but
>>they are opened.
>>I wonder, what can cause that? What should I advise user to do?
>>Reinstalling Excel does not help.
>>I am using vbasic and Excel automation.
>>Your comments appreciated,
>>Jack
>>