Excel VBA - Setting a default font & size in a macro.

[Coventry Deb]

I have the following macro for automatically putting the full address of a workbook and the name of the individual spreadsheet , date and time in the footer. What I'm stuck on is to always have a default for the whole of the footer of the font Aerial and size of 8? I've tried various combinations with and without an additional "with selection" etc but haven't managed to crack it. Can anyone help please?

Thanks

Deb

Sub FooterPath()
With ActiveSheet.PageSetup
.LeftFooter = ActiveWorkbook.FullName
.RightFooter = "&A &D &T"
End With
End Sub

 

[Andrew Poulsom]

Try:

Sub FooterPath()
    With ActiveSheet.PageSetup
    .LeftFooter = "&""Arial,Regular""&8" & ActiveWorkbook.FullName
    .RightFooter = "&""Arial,Regular""&8&A &D &T"
    End With
End Sub

 

[Coventry Deb]

Thanks Andrew