loading all add-ins at one stroke

[lior03]

hello
is it possible to install all addins through a macro.
thanks

[lior03]

maybe?

Dim i As Integer
For i = 1 To AddIns.count
If AddIns(i).Installed = False Then
AddIns(i).Installed = True
End If
Next

[tpoynton]

I believe that would load all add ins that are displayed in the add ins dialog box...

[lior03]

my suggestion:

Sub addinstall()
If MsgBox("you must declick the addins you want to reinstall,goto addins manager?", vbExclamation + vbOKCancel, "addins list") = vbOK Then
Application.Dialogs(xlDialogAddinManager).Show
If MsgBox("would you like to reacivate addins you just clicked", vbInformation + vbOKCancel, "addins reactivation") = vbNo Then
Dim ad As AddIn
For Each ad In Application.AddIns
If ad.Installed = False Then
ad.Installed = True
End If
Next
End If
End If
End Sub

[Bob Phillips]

Do it for them



Dim ad
Dim aryads
Dim i As Long
ReDim aryads(1 To 1)
i = 1
For Each ad In Application.AddIns
ReDim Preserve aryads(1 To i)
aryads(i) = ad.Name
i = i + 1
ad.Installed = False
Next ad
For i = 1 To UBound(aryads)
Application.AddIns(aryads(i)).Installed = True
Next i