Schriftgröße angeben in VB-Makro

Sub PfadinFußzeile()
ActiveSheet.PageSetup.LeftFooter = _
ActiveWorkbook.FullName
End Sub

Dies trägt mir wunderbar den Pfad und Dateinamen in die Fußzeile ein. Allerdings geschieht dies immer in Schriftgröße 10. Ich möchte aber Schriftgröße 6 haben.

Kann mir jemand weiterhelfen?

Michael