Tilpasning af Sidehoved/sidefod

Ja, men det kræver lidt kode.
Du kan eksperimentere med følgende kode:

Sub HovedSidefod()
'
' Indsætter samme hoved og sidefod på alle ark.
' Incl. den fulde sti
'
Dim ws As Worksheet
    Application.ScreenUpdating = False
    For Each ws In ActiveWorkbook.Worksheets
        Application.StatusBar = "Changing header/footer in " & ws.Name
        With ws.PageSetup
            .LeftHeader = "Forlygter"
            .CenterHeader = "Side &P af &N"
            .RightHeader = "Udskrevet: &D &T"
            .LeftFooter = "Sti: " & ActiveWorkbook.Path
            .CenterFooter = "Filnavn: &F"
            .RightFooter = "Arknavn: &A"
        End With
    Next ws
    Set ws = Nothing

Denne makro er måske lidt mere præcis:

Sub UpdateFooter()
  ActiveSheet.PageSetup.LeftFooter = ActiveWorkbook.FullName
End Sub

ActiveSheet.PageSetup.LeftFooter = ActiveWorkbook.Path & "\" & " &F"

De virker åbenbart begge to. Takker :o)