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 !