Auto Path in Footer
 

Hello,

The folowing code will give you full path with font size 8
change &8 to deisired number to get another font size.

With ActiveSheet.PageSetup
.LeftFooter = "&8&Z&F"
End With


Abdul Salam

-----Original 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

.