Custom Footer
I use:
Sub pathinfooter()
ActiveSheet.PageSetup.RightFooter = "&08 &" & Chr(34) & _
"Times New Roman" & Chr(34) & _
ActiveWorkbook.FullName & " " & ActiveSheet.Name
End Sub
In a standard module of my Personal.xls file - Also a Custom Button on
My toolbar runs "pathinfotter" when I need it.
"Andrew Mackenzie" wrote in message
:
Hi, I hope someone can help.
I am trying to put a custom footer in an excel spreadsheet giving the
filename and the path but it seems that I can only put the filename without
the path. Do I have to live with this?
Thanks,
Andrew.
|