Kopf-/Fußzeile

Ich habe ein Problem mit der Formatierung von Fuß- und Kopfzeilen

Über ein Makro

Sub kopfzeile()
Sheets("Muster").Select
With ActiveSheet.PageSetup
.LeftHeader = Sheets("basis").[a40] & Chr(10) & Sheets("basis").[a37]
.CenterHeader = ""
.RightHeader = Sheets("basis").[a38] & Chr(10) & "&D"
.LeftFooter = Sheets("basis").[a42]
.CenterFooter = ""
.RightFooter = ""
End With
ActiveWindow.SelectedSheets.PrintPreview
End Sub

erstelle ich in einem Tabellenblatt Kopf-/und Fußzeile.
Klappt auch, jedoch möchte ich die Schriftgröße von 10 auf 12 einstellen. Das kriege ich leider nicht so hin wie ich es mir wünsche. Kann mir hier jemand helfen.

Besten dank im voraus

Gruß Det