Code für RELATIVE Adresse statt absoluter

Liebe Leute,
alle Jahre wieder muss ich ein Excel-Programm nachbessern,
aktuell muss ich es wegen Korona auf 2 verschiedenen ausgestatteten Rechnern in zwei verschiedenen Zimmern laufen lassen.

Wie lautet daher der folgende Code mit RELATIVER Adresse,
also die excel-Liste ist immer im Unterverzeichnis B des Verzeichnisses A, in dem sich auch das aufrufende Programm befindet:
Workbooks.Open Filename:=„C:\A\B\Liste.xls“
Windows(„Liste.xls“).Activate 'wechsle zur Liste

Danke für Hilfe!
Schwipp

Hallo,

vieleicht hift ja

filename = Application.ActiveWorkbook.Path & „\B\Liste.xls“

Tschau
Peter