title: Add in installed and referenced
body: <p>I want to check if addin is installed and is referenced. The below code checks for add in is installed or not. How can i check if its referenced in excel.</p>
  
  <p>By Refernced i mean is Tools > Addins > Addins Dailog box > If addins is installed > check if a addin with particular name is checked. </p>
  
  <p>I would like preferably without any loop.</p>
  
  <pre><code>Sub Demo() 
      Dim b As Boolean 
      b = CheckAddin("Solver add-in") 
      MsgBox "Solver is " &amp; IIf(b, "", "not ") &amp; "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 
  </code></pre>