AddIn im Unterordner zuordnen

Private Sub Workbook_Open()
AddIns.Add Filename:="D:\TEST\AddIn\Proddatei.xla"
AddIns("Proddatei").Installed = True
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
AddIns("Proddatei").Installed = False
End Sub

Was muss wie geändert werden, damit das AddIn immer im Unterordner \AddIn geöffnet wird da meine Kollegen unterschiedliche LWPfade haben.
Die Datei die das AddIn zuordnet befindet sich immer im Ordner \Test. Nur der LW Pfad kann geändert sein oder auch das Verzeichnis Test mit seinem Unterordner kann wiederrum als Unterordner eines anderen Ordners gelegt sein. z.B. LW:\meineDateien\Test\....
Wer kann mir bitte helfen wie die Zeilen angepasst werden müssen.
Danke und Gruß
Thomas