How do I refresh Path In Footer when saving to another folde

[Barry Katcher]

I have the following macro code:

ActiveSheet.PageSetup.LeftFooter = ActiveWorkbook.FullName

which inserts the path and filename into the left footer. That's fine, but when I save the same file to another folder, the path in the footer is not changed, and/or if I rename the file, the new name is not returned in the footer. Is there any way to have the footer automatically change under the above conditions? Thanx in advanx.

_________________
I used to have delusions that I was a werewolf, but I'm much better noOOOWWWWWWWW!

[ This Message was edited by: Barry Katcher on 2002-05-13 12:03 ]

[bergy]

On 2002-05-13 10:28, Barry Katcher wrote:
I have the following macro code:

ActiveSheet.PageSetup.LeftFooter = ActiveWorkbook.FullName

which inserts the path and filename into the left footer. That's fine, but when I save the same file to another folder, the path in the footer is not changed, and/or if I rename the file, the new name is not returned in the footer. Is there any way to have the footer automatically change under the above conditions? Thanx in advanx.

How about using an Auto_Close() routine.

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

This Sub will run when you close the workbook. It will only modify the activesheet, not every sheet in the workbook. You would have to modify it a bit for that

[Barry Katcher]

Thanx, Bergy. If I had this macro in my PERSONAL macro workbook, and ran it on all three sheets of any new workbook I opened, would it become a permanent part of that new workbook and run each time I closed that workbook?

[bergy]

On 2002-05-13 12:11, Barry Katcher wrote:
Thanx, Bergy. If I had this macro in my PERSONAL macro workbook, and ran it on all three sheets of any new workbook I opened, would it become a permanent part of that new workbook and run each time I closed that workbook?

I am afraid I don't know. My best guess is 'no'. I think you have to make it a macro assined to the workbook.