Hallo Roger,
es gibt bestimmt viele Möglichkeiten.
Ein Beispiel:
Sub PfadInKopfzeile()
Worksheets(1).PageSetup.LeftHeader = ThisWorkbook.FullName
MsgBox (Application.ActiveWorkbook.Path & "\" & Application.ActiveWorkbook.Name)
Range("C3") = (Application.ActiveWorkbook.Path & "\" & Application.ActiveWorkbook.Name)
End Sub
Gruß
fedjo