Mega Code Archive

 

Categories / VisualBasic Script / Application

 

Filling in for Excels 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