Sie können den kompletten Dateipfad in der Kopf- oder Fußzeile angeben.
     Hierzu wird ein kleines Makro benötigt,
     welches den Dateipfad zentriert in der Kopfzeile ausgibt:

   Sub Kopfzeile_formatieren()
      Worksheets("Tabelle1").PageSetup.CenterHeader = _
      ThisWorkbook.FullName
   End Sub

     Um nur den Dateinamen in der Kopf- oder Fußzeile zu haben,
     ändern Sie den o.g. Code: ThisWorkbook.Name

     Natürlich muss es nicht zentriert in der Kopfzeile sein !
     Hier sind weitere Möglichkeiten:

LeftHeader CenterHeader RightHeader LeftFooter CenterFooter RightFooter

Kopfzeile linksbündig Kopfzeile zentriert Kopfzeile rechtsbündig Fußzeile rechtsbündig Fußzeile zentriert Fußzeile rechtsbündig

      Update 16.02.2000
     Da ich in letzter Zeit oft danach gefragt wurde:

     ThisWorkbook.Fullname gibt den gesamten Pfad
     der Datei zurück, in der sich auch das Makro befindet !

     ActiveWorkbook.Fullname gibt den gesamten Pfad
     der aktiven Datei zurück.

     Des weiteren wurde mir oft die Frage gestellt,
     wie man allen Tabellenblättern die Kopf- oder Fußzeile zuweisen kann:

   Sub Alle_Kopfzeilen()
      For x = 1 To ActiveWorkbook.Sheets.Count
         ActiveWorkbook.Sheets(x).PageSetup.CenterHeader = _
           ActiveWorkbook.FullName
      Next
   End Sub

     Beachten Sie aber dabei folgendes:

    Der Pfad wird nur dann gesetzt,
    wenn die entsprechende Datei bereits gespeichert wurde !

    Sollte die Datei an einem anderen Ort gespeichert werden,
    so muss das Makro erneut ausgeführt werden.
    Die Kopf- oder Fußzeile wird nicht automatisch angepasst !