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