Coventry Deb
New Member
- Joined
- Oct 19, 2005
- Messages
- 29
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
Thanks
Deb
Sub FooterPath()
With ActiveSheet.PageSetup
.LeftFooter = ActiveWorkbook.FullName
.RightFooter = "&A &D &T"
End With
End Sub