VBA/Excel/Access/Word/Application/AddIns

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

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

Filling in for Excel"s missing add-in properties

 
Function InAddInCollection(wb) As Boolean
    For Each item In AddIns
        If item.Name = wb.Name Then
            InAddInCollection = True
        End If
    Next item
End Function