Path Name in Footer

[GMS]

Is there a way to insert the Entire Path name in the
footer. Including the network path name?
\\s:\foldername\filename

 

[Frank Kabel]

Hi
depending on your Excel version you need VBA for doing this. Put the
following code in your workbook module:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wkSht As Worksheet
For Each wkSht In Me.Worksheets
With wkSht.PageSetup
.CenterFooter = Me.FullName
End With
Next wkSht
End Sub

 

[GMS]

Thanks - New user sorry for acting stupid - Excel 2000

And what do you mean put into workbook module? excel
ignorance

 

[Frank Kabel]

Hi
try the following:
- open the VBA editor (hit ALT + F11)
- locate the entry 'thisWorkbook' in the left explorer window
- double click on this entry
- paste the code in the appearing editor window
- close the VBA editor
- save the workbook
Try it (e.g. open the print preview)

 

[GMS]

This is how I inserted the following code.

Opened Workbook
Select Tools/Macros/Visual Basic Editor
I pasted the copied code into code area and saved.

Nothing seems to have changed. HELP

 

[Frank Kabel]

Hi
see my previous reply. You have to put this in the workbook module

 

[gms]

I cannot find "thisWorkbook' the only option is 'General'

 

[Frank Kabel]

Hi
have you opened the VBA editor with ALT+F11?
In the left side there should be an explorer tree like view with your
workbook as one project name?

 

[gms]

Yes, I opened with ALT+F11 - No tree - Is there a setting
I need to change?

 

[GMS]

WOW!!!...I Found it. I had to click on the Project
Explorer Icon from the toolbar(DUH!!!) Yes I am blond.

It works

Thanks for putting up with me.

 

[Frank Kabel]

Hi
in the VBA editor goto 'View - Project Explorer' or hit CTRL+R to
activate the project explorer

 

[Frank Kabel]

Hi
SUCESS
glad to be of help