AddIns

ich möchte sicherstellen das ein AddIn beim Starten einer XLS-Mappe geladen wird. (es kann sein das es noch nicht auf dem Lokalenlaufwerk befindet (C:), und es deshalb erst kopiert werden muß.)

Sub AddIn()
Dim VarAddIn As AddIn
For Each VarAddIn In Application.AddIns
Workbooks.Open Filename:="\\SERVER\PFAD\XLADATEI.xla"
Set myAddIn = VarAddIn.Add(Filename:="\\SERVER\PFAD\XLADATEI.xla", CopyFile:=True)
MsgBox myAddIn.Title & " has been added to the list"
Next
End Sub

diese Variante habe ich jetzt zuletzt probiert,
ergebnis : Laufzeitfehler 438 bei dem Add Befehl

Ich hoffe das mir jemand helfen kann.