full path in excel footer

Fluppe · Feb 3rd 2003

Hey,
How can I fill in the full path of an excelsheet in its footer, using vba?
Thank you

Dave Hawley · Feb 3rd 2003

Hi Fluppe

Welcome to the board.

You can right click on the Excel icon, top left next ti "File", select "View Code" and past in this:

Code

Private Sub Workbook_BeforePrint(Cancel As Boolean)
 ActiveSheet.PageSetup.LeftFooter = Me.FullName

Or, you can use the code to run in another Procedure.

BTW, this is a built in feature for Ecel 2002, but not prior versions:(

Dave Hawley · Feb 3rd 2003

Hi Fluppe

Welcome to the board.

You can right click on the Excel icon, top left next to File, select View Code and paste in this:

Code

Private Sub Workbook_BeforePrint(Cancel As Boolean)
 ActiveSheet.PageSetup.LeftFooter = Me.FullName
End Sub

Or, you can use the code to run in another Procedure.

BTW, this is a built in feature for Excel 2002, but not prior versions

Edit:WillR[Yes]

Participate now!