View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.misc
Roger Govier
 
Posts: n/a
Default Customising Footers - not doing too well!

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