Fusszeilenmakro mit Odnerstruktur "&"

Sub FusszeileEinfügen()
' With Application
'     .StandardFont = "Arial"
'     .StandardFontSize = "4"
' End With
'Mldg = "Bitte Initialen eingeben"  ' Aufforderung festlegen.
'Titel = "Initialen" ' Titel festlegen.
'Voreinstellung = "MM"    ' Voreinstellung festlegen.
' Meldung, Titel und Standardwert anzeigen.
Initial = FussIni.Initialen.Value
Abteil = FussIni.Abteilung.Value
SGrösse = FussIni.FontSi.Value
If Initial = "" Or Abteil = "" Then Exit Sub
Pfad = Application.ActiveWorkbook.Path + "\"
For Each sh In Application.ActiveWorkbook.Windows(1).SelectedSheets
With sh.PageSetup
.LeftFooter = "&" & SGrösse & " Zürich, &D " & Abteil & "/" & Initial
.RightFooter = "&" & SGrösse & "&P/&N"
.CenterFooter = "&" & SGrösse & " " & Pfad & "&F / &A"
'.Zoom = Zoomauto
End With
Next
'   With Application
'       .StandardFont = "Arial"
'       .StandardFontSize = "10"
'   End With
End Sub

Sub FusszeileAufheben()
For Each sh In Application.ActiveWorkbook.Windows(1).SelectedSheets
With ActiveSheet.PageSetup
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
End With
Next
End Sub

Sub FormFusszeile()

BearbeitenFusszeile.Show

End Sub