from a post by Gord

Sub Path_All_Sheets()
Set wkbktodo = ActiveWorkbook
For Each ws In wkbktodo.Worksheets
ws.PageSetup.RightFooter = ActiveWorkbook.FullName & " " & Chr(13) _
& Application.UserName & " " & Date
Next
End Sub


Sub PathInFooter()
ActiveSheet.PageSetup.RightFoo*ter = ActiveWorkbook.FullName & " " & _
ActiveSheet.Name & " " & Application.UserName & " " & Date
End Sub


You could also put the code into Thisworkbook BeforePrint


Gord Dibben Excel MVP



--
Don Guillett
SalesAid Software

"debra" wrote in message
...
I'm trying to have the path show up on my excel documents - how do i do
this?
in word you can just put this in the footer... but, excel doesn't seem to
have this capability...