How to set the file path in footer?

[ssunchen]

Hi,

I am going to set a file path in the footer. Once save the file into another folder the file path will be changed to the current folder.

Please teach me if you know how to do it.

Thank you very much.

ssunchen

[Colo]

Hi,
Pls try this.

ActiveSheet.PageSetup.LeftFooter = ActiveWorkbook.Path

[Barry Katcher]

Better yet, replace "Path" with "FullName". This will give the name of the file as well as the path.

Only trouble with this is that, when you rename the file and/or save it to another folder, it does not automatically change the path in the footer. But not to worry - place the macro below into your PERSONAL macro workbook and just run it every time you save to another folder or with another file name:

Sub InsertPathInFooter()
ActiveSheet.PageSetup.LeftFooter = ActiveWorkbook.FullName
End Sub

[Ivan F Moala]

Other option....place your code in the
Workbook before save event....

[Barry Katcher]

Ivan, how do I do that?