Peter,

Its working perfect.

Its always good to know more then one method.

Thanks ,

Nayan

"Peter T" wrote:

Another way -

Private Declare Function FindWindowEx Lib "user32" _
Alias "FindWindowExA" _
(ByVal hWnd1 As Long, _
ByVal hWnd2 As Long, _
ByVal lpsz1 As String, _
ByVal lpsz2 As String) As Long

Function XLcount() As Long
Dim hwnd As Long, n As Long
Do
hwnd = FindWindowEx(0&, hwnd, "XLMAIN", vbNullString)
n = n + 1
Loop Until hwnd = 0
XLcount = n - 1
End Function

Sub test()
MsgBox XLcount
End Sub

Regards,
Peter T

"Nayan" wrote in message
...
Hello ,

If anyone knows how to get count of all the instances of excel that are
open
at a time on the machine?

using getobject will reference to the instance of the excel application
that
was opened first but it will not say how many instances are already open
at
that point of time.

I need this value in a start up of an xla file which runs on loading of
excel (2003)
If more then one instance are open then I want to exit from furthur
loading
of xla .

Thanks,

Nayan