Chcę sprawdzić, czy dodatek jest zainstalowany i do którego się odwołuje. Poniższe sprawdzenia kodu dla dodatku są zainstalowane lub nie. Jak mogę sprawdzić, czy odwołuje się do niego w programie Excel.

Przez Refernced mam na myśli Narzędzia> Dodatki> Pole Dailog Dodatków> Jeśli zainstalowane są dodatki> sprawdź, czy jest zaznaczony dodatek z określoną nazwą.

Chciałbym najlepiej bez żadnej pętli.

Sub Demo() 
    Dim b As Boolean 
    b = CheckAddin("Solver add-in") 
    MsgBox "Solver is " & IIf(b, "", "not ") & "installed" 
End Sub 

Function CheckAddin(s As String) As Boolean 
    Dim x As Variant 
    On Error Resume Next 
    x = AddIns(s).Installed 
    On Error Goto 0 
    If IsEmpty(x) Then 
        CheckAddin = False 
    Else 
        CheckAddin = True 
    End If 
End Function