Hi Claire
Try adding the following macro to a button on your toolbar.
ViewToolbarsCustomiseslide down Categories till you get to Macrodrag
the Custom macro button to your toolbar.
Whilst Customise dialogue box is still open, then right click on new
iconAdd macro footerpath
Sub footerpath()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Sheets
ws.Activate
ws.PageSetup.RightFooter = ""
ws.PageSetup.RightFooter = ActiveWorkbook.FullName
Next
End Sub
To copy the macro footerpath code as shown above then
Alt + F11 (open Visual Basic Editor)
Ctrl + R (open Project Explorer)
Select your workbook name on left
If no modules exist:
Insert Module
Paste code in Module
If modules exist:
Double click desired module
Paste code in Module
Clicking the newly added button in your file, will remove anything
entered in your right footer of each worksheet, and will add the current
path and name of file.
Change .rightfooter to .leftfooter or .centerfooter as required.
--
Regards
Roger Govier
"weeclaire"
wrote in message
...
I'm using Xl2000 so the hunt continues.
Regards
Claire
--
weeclaire
------------------------------------------------------------------------
weeclaire's Profile:
http://www.excelforum.com/member.php...o&userid=28738
View this thread:
http://www.excelforum.com/showthread...hreadid=501018