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