VBA/Excel/Access/Word/Application/AddIns

Ensuring that an accessible add-in is properly installed and workable

   <source lang="vb">

Private Sub Workbook_Open()

  AddIns.Add FileName:=ThisWorkbook.FullName
  AddInTitle = "title"
  Application.EnableEvents = False
  AddIns(AddInTitle).Installed = True
  Application.EnableEvents = True

End Sub

</source>
   
  

Filling in for Excel"s missing add-in properties

   <source lang="vb">

Function InAddInCollection(wb) As Boolean

   For Each item In AddIns
       If item.Name = wb.Name Then
           InAddInCollection = True
       End If
   Next item

End Function

</source>