Format footers in VBA

[mpromney]

Hi:


New member. Wondering if someone can help me solve a problem I'm having formatting footers in VBA. Here's is the relevant section of code I'm using:

With ActiveSheet.PageSetup
    .LeftFooter = "&""Calibri,Regular""&9 &D at &T"
    .CenterFooter = "&""Calibri,Regular""&9 CONFIDENTIAL - For Management Purposes Only"
    .RightFooter = "&""Calibri,Regular""&9 Page: &P"
End With

The worksheet I'm running this macro on is a balance sheet with the above footers already existing, except that they're in Times New Roman font. All I want to do is change the font from Times New Roman to Calibri. When I run the macro and print the results, the left and center footers are in Times New Roman and only the right footer is in Calibri. I must have run the macro 20+ times with all sorts of variations - all with the same frustrating result. What am I doing wrong? TIA for a response.

 

[RoryA]

I would also add:

.Zoom = False

to your code.