maryj,

A chart sheet is not a worksheet, so you have to use a variable
data type that includes both. Object does that.
"--------------------------------------------
Public Sub PathAndFileNameInFooter()
Dim objSht As Object
For Each objSht In ActiveWindow.SelectedSheets
objSht.PageSetup.LeftFooter = ActiveWorkbook.FullName"
Next 'objSht
Set objSht = Nothing
End Sub
'-------------------------------------------
or this
'------------------------------------------
Public Sub PathAndFileNameInFooter2()
Dim lngCount As Long
For lngCount = 1 To ActiveWindow.SelectedSheets.Count
Sheets(lngCount).PageSetup.LeftFooter = ActiveWorkbook.FullName
Next 'lngCount
End Sub
'-----------------------------------------

Jim Cone
San Francisco, USA



"maryj" wrote in message
...
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