Hello folks- I'm trying to setup a company wide, permanent footer for Excel. I've created a macro that I can activate with a custom toolbar, which works, but this is something I've been asked to enforce, so I need to make sure it starts with this footer in place.
This is what I have so far-
Sub Set_All_Sheets()
Dim wkbktodo As Workbook
Dim ws As Worksheet
Set wkbktodo = ActiveWorkbook
For Each ws In wkbktodo.Worksheets
With ws.PageSetup
.LeftFooter = "Andrew Young"
.CenterFooter = "&F"
.RightFooter = "&D"
End With
Next ws
End Sub
As I say, it works fine, I'm just not sure how to implement it as something that starts when Excel opens. I've tried saving it as part of the personal.xls, but it doesn't seem to be creating a file in the XLSTART folder.
And I also need to add the path to the center footer- does anyone know the reference for that?
Thanks.