Add this code to the ThisWorbook code module

Dim WithEvents AppClass As Application

Private Sub Appclass_WorkbookBeforePrint(ByVal Wb As Workbook, Cancel As
Boolean)
With Wb.ActiveSheet.PageSetup
.LeftFooter = Wb.FullName
End With
End Sub

Private Sub Workbook_Open()

Set AppClass = Application

End Sub


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Mrs. S" <Mrs. wrote in message
...
I would like to set up a default where all Excel documents automatically
show
the file name when printed. Thanks!