Sub Auto_Open()
   Name = ThisWorkbook.BuiltinDocumentProperties(1)
   On Error Resume Next
   tmp = AddIns(Name).Installed
   If Err.Number <> 0 Then
      f = MsgBox("Wollen Sie diese Datei als Add-In installieren ?", _
         vbQuestion + vbYesNo)
      If f = 6 Then
         If Workbooks.Count = 0 Then n = True
            If n Then
               Workbooks.Add
               Merk = ActiveWorkbook.Name
            End If
            AddIns.Add FileName:=ThisWorkbook.FullName
            AddIns(Name).Installed = True
            If n Then Workbooks(merk).Close False
      End If
   End If
   'an dieser Stelle können dann entsprechende Funktionen stehen
End Sub

Beim Öffnen des Add-Ins wird geprüft,
ob es bereits als Add-In installiert wurde.

Sollte dies nicht der Fall sein, wird man danach gefragt.
Hierbei muss man allerdings eine Abfrage einbauen,
ob mindestens eine Arbeitsmappe offen ist,
da sonst kein Add-In installiert werden kann.
In diesem Fall wird kurzzeitig eine neue leere Arbeitsmappe erstellt
und im Anschluss wieder geschlossen.

Besonders wichtig !
Ihr Add-In muss einen Namen haben.
Diesen legen Sie über "Datei" - "Eigenschaften" - "Titel" fest.