Auto Path in Footer
Karen, try this
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftFooter = "&""Arial""&8 " & ActiveWorkbook.FullName
End Sub
--
Paul B
Always backup your data before trying something new
Using Excel 97 & 2000
Please post any response to the newsgroups so others can benefit from it
** remove news from my email address to reply by email **
"Karen" wrote in message
...
I use the following code to enter the network path into
the footer of my worksheet
Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.LeftFooter = ActiveWorkbook.FullName
End Sub
How can I change the code so it does not use the default
font size? The default is currently 10 and I want the
path to be 8
Thank you
|