Möchte man auf Knopfdruck das aktuelle Verzeichnis, in dem sich
Excel gerade befindet, wechseln und/oder eine bestimmte Datei,
deren Name feststeht, öffnen, dann eignet sich das folgende
kleine Makro dazu.
Sub Datei_oeffnen()
ChDir "Y:\Excel\Hilfsmaterialien und Betriebsstoffe\2004"
Workbooks.Open FileName:="05 2004.xls"