The following would supply you with a list of workbooks
(alter the code to write into your sheet):

Dim wrkBook As Workbook
Dim wrkBooks As Workbooks
Dim strMsg As String

For Each wrkBook In Workbooks
strMsg = strMsg & wrkBook.Name & vbCr
Next wrkBook
MsgBox strMsg

A list of Apps is do-able, but I'm sorry, I don't know
that.

Hope this helps at least 50%.

-----Original Message-----
How do I get a list of all open Excel workbooks in WinXP?

How do I get a list of all open applications in WinXP?

I basically want to get a list of open Excel workbooks
and copy this
list into a sheet for a user to choose from. I may
eventually wish to
add a list of all open applications (Specifically, SPSS
applications).

Lance

.