Um alle installierten Add-Ins zu ermitteln, genügen wenige Zeilen Code.

     Das nachfolgende Makro ermitteln diese und schreibt alle
     Add-Ins in eine Listbox1 in Tabelle1.

     Setzen Sie also eine Listbox1 auf Tabelle1,
     und fügen Sie neues Modul ein:

   Sub AddIns_ermitteln()
      Dim AI As AddIn
      'Listbox leeren
      Worksheets("Tabelle1").ListBox1.Clear
      'Schleifenbeginn
      For Each AI In Application.AddIns
         'Dateinamen in Listbox eintragen
         Worksheets("Tabelle1").ListBox1.AddItem (AI.FullName)
         'Schleifenende
      Next
   End Sub