File path in custom header.

[hblatz]

I would like to dynamically include the file path (along with the file name) in a customer header or footer.

I see how to do this with the file name, and the tab, but I also want to include the path so that other persons do not have to take so long to find the file. Any suggestions?

 

[lenze]

Place this code in the ThisWorkBook module.

Private Sub Workbook_BeforePrint(Cancel As Boolean)

ActiveSheet.PageSetup.LeftFooter = ThisWorkbook.FullName

End Sub


Also, this code will place the full path in the Window title barwhen the file is opened

Private Sub Workbook_Open()
ActiveWindow.Caption = ActiveWorkbook.FullName
End Sub

 

[hblatz]

Thank you.
This works beautifully.

 

[Barry Katcher]

Or, try placing this in your PERSONAL macro workbook:

Sub InsertPathInFooter()
'Insert path & file name in left footer
With ActiveSheet.PageSetup
.LeftFooter = "&""Arial,Regular""&8" & ActiveWorkbook.FullName
End With
End Sub

Advantage is 1)it can be run while in any worksheet, as long as your PERSONAL workbook is open - you don't have to place the macro in each Workbook/sheet you create. 2) Makes the font smaller.

Disadvantage is that it has to be run manually, and will not insert the footer before each printing. If you change names and Save As or you save to a different path, you first have to re-run it.

What you can do, however, is, if you create a print macro, you can copy/paste the above into the appropriate section of the macro. Then, it WILL insert the current path/filename every time you print.