Prüfung ob ein AddIn intalliert ist

Thema: Allgemein - Gruppe AddIn

Arbeitsmappe

023398    232204

Problem: Wie kann ich über VBA abfragen, ob ein bestimmtes AddIn installiert ist?

StandardModule: basMain

Sub AddInTest()
   Dim oAddIn As AddIn
   Dim sAddIn As String
   sAddIn = Range("B1").Value
   For Each oAddIn In Application.AddIns
      If UCase(oAddIn.Name) = UCase(sAddIn) Then
         MsgBox UCase(sAddIn) & " ist installiert!"
         Exit Sub
       End If
   Next
   MsgBox UCase(sAddIn) & " ist nicht installiert!"
End Sub