This requires Word to be installed (it does not have to be open)
'--
Sub WhichOnes()
Dim objWord As Object
Dim objTasks As Object
Dim N As Long
Set objWord = CreateObject("Word.Application")
Set objTasks = objWord.Tasks
For N = 1 To objTasks.Count
Cells(N, 2).Value = objTasks(N).Name
Next 'N
Set objTasks = Nothing
objWord.Quit
Set objWord = Nothing
End Sub
--
Jim Cone
Portland, Oregon USA




"Janie"
wrote in message
I know Application.Caption will tell me the name of a running app showing in
the Taskbar. What I need is the right For Each collection so I can get the
names of all running apps.

In theory, something like:
For Each App in Taskbar
Debug.Print App.caption
Next App
I know I have seem this somewhere and can't locate it.
Thanks