Office: (Office 2013) Makro Fehler

Hallo,

ich habe ein Makro erstellt, dass leider nicht richtig funktioniert.
Hoffe mir kann jemand behilflich sein.
Folgendes sollte das Makros eigentlich tun:
Seitenlayout- benutzerdefiniertes Seitenlayout- die Seitenränder ändern -- das klappt auch
Auf der Seite zentrieren - horizental -- klappt auch

Kopfzeile - Seite (da möchte ich die Seitenzahl angezeigt bekommen)-- da liegt der erste Fehler, hier fügt er mir komischerweise den Pfad ein statt die Seite
Fußzeile - Datei, Register, Datum und das Kürzel LH (möchte ich dadrin haben) -- da übernimmt er dann Seite, Datum und das Kürzel LH

der Rest des Makros funktioniert einwandfrei... (Haken weg bei Seitenrändern und die Wiederholungszeilen)

Kann mir jemand sagen wo der Fehler liegt?

Vielen Dank schon mal, anbei der Code des Makros

Sub seite()
'
' seite Makro
'

'
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.PrintTitleRows = "$1:$6"
.PrintTitleColumns = ""
End With
Application.PrintCommunication = True
ActiveSheet.PageSetup.PrintArea = ""
Application.PrintCommunication = False
With ActiveSheet.PageSetup
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = "&P"
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = "&9&F &A &D LH"
.LeftMargin = Application.InchesToPoints(0)
.RightMargin = Application.InchesToPoints(0)
.TopMargin = Application.InchesToPoints(0.590551181102362)
.BottomMargin = Application.InchesToPoints(0.433070866141732)
.HeaderMargin = Application.InchesToPoints(0.433070866141732)
.FooterMargin = Application.InchesToPoints(0.31496062992126)
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 600
.CenterHorizontally = True
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
.PrintErrors = xlPrintErrorsDisplayed
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.ScaleWithDocHeaderFooter = True
.AlignMarginsHeaderFooter = False
.EvenPage.LeftHeader.Text = ""
.EvenPage.CenterHeader.Text = ""
.EvenPage.RightHeader.Text = ""
.EvenPage.LeftFooter.Text = ""
.EvenPage.CenterFooter.Text = ""
.EvenPage.RightFooter.Text = ""
.FirstPage.LeftHeader.Text = ""
.FirstPage.CenterHeader.Text = ""
.FirstPage.RightHeader.Text = ""
.FirstPage.LeftFooter.Text = ""
.FirstPage.CenterFooter.Text = ""
.FirstPage.RightFooter.Text = ""
End With
Application.PrintCommunication = True
End Sub

 

Vielleicht soll ich dazu sagen, dass ich das Makros schon mehrmals neu erstellt habe und auch mein Kollege es versucht hat.
Wir haben seit gestern Office 2013 und bei Office 2007 hat es immer geklappt :)