This should do..

Sub LoadXLwithAddins()
Dim xl As Object
Dim ai As Object

Set xl = CreateObject("Excel.Application")

For Each ai In Application.AddIns
If ai.Installed Then
xl.Workbooks.Open(ai.FullName).RunAutoMacros 1
End If
Next

xl.Visible = True
Set xl = Nothing
End Sub


keepITcool

< email : keepitcool chello nl (with @ and .)
< homepage: http://members.chello.nl/keepitcool


"Aaron Fude" wrote:

Hi, I have the following script to start Excel if it is not started
and to use an existing instance if it is:

Dim XL
Dim agrs
on error resume next
set XL = GetObject(,"Excel.Application")
If XL is Nothing Then Set XL = CreateObject("Excel.Application")
Set args = WScript.Arguments
XL.Workbooks.Open args(0)
XL.Visible = True

The problem is that if Excel is not started and this starts a new
instance, my add-ins (that are checked) do not load.

How to solve this?

Many thanks in advance,

Aaron Fude