Using Win 2K/Office 2K. Added this code to Personal.xls to create footer for
each worksheet in workbook with file name and path.

Public Sub PathAndFileNameInFooter()
Dim wsSht As Worksheet
For Each wsSht In ActiveWindow.SelectedSheets
wsSht.PageSetup.LeftFooter = ActiveWorkbook.FullName
Next wsSht
End Sub

It works great except I get a "type mismatch" error for chart sheets. How
can I modify the code to also include chart sheets?
--
maryj