Dan,

You can use the "Installed" property to test whether an add-in is loaded
(checked in the list):

Dim AI As Excel.AddIn
For Each AI In Application.AddIns
If AI.Installed = True Then
Debug.Print "Loaded: " & AI.Name, AI.FullName
End If
Next AI


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting
www.cpearson.com
(email on the web site)


"Dan" wrote in message
...
Hi,
I am trying to get a list of the selected add-in in an application, I have
tried:

For Each w in aAplication.Workbooks
debug.print w.Name
next w

It does return all the addins in the list - also the non selected (non
ticked).
An I am interested in only the ticked one
Any idea?