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