ungewollter Speicherpfad in Fußzeile

Sub Codeschnipsel()
WS_Count = ActiveWorkbook.Worksheets.Count
'Start der Schleife
For I = 1 To WS_Count
Application.ScreenUpdating = False
With Sheets("0.Cover")
Sheets(I).Unprotect Password:="Xv2!&7umP8"
Sheets(I).PageSetup.LeftFooter = "&""Arial Narrow""&8" & " "
Sheets(I).PageSetup.CenterFooter = "&""Arial Narrow""&8" & " "
Sheets(I).PageSetup.RightFooter = "&""Arial Narrow""&8" & " "
Sheets(I).PageSetup.LeftFooter = "&""Arial Narrow""&8" & "Dokumenten Nr. / document no.: " & _
.Range("AH1").Value & Chr(10) & _
"Version / revision:                        " & .Range("AH2").Value & "." & .Range("AH3" _
).Value
Sheets(I).PageSetup.CenterFooter = "&""Arial Narrow""&8" & "Datum / date:" & Chr(10) & . _
Range("AH4").Value
Sheets(I).PageSetup.RightFooter = "&""Arial Narrow""&8" & "Seite / page:" & Chr(10) & "&P" & _
" / " & "&N"
If Sheets(I).ProtectContents = False Then
Sheets(I).Protect Password:="Xv2!&7umP8", DrawingObjects:=False, Contents:=True,  _
Scenarios:=True, AllowFiltering:=False
End If
End With
Next I
End Sub