you'd need to use a macro. One way:

Public Sub SheetNameInFooter()
Dim wsSheet As Worksheet
For Each wsSheet In Worksheets
With wsSheet
.PageSetup.LeftFooter = .Name
End With
Next wsSheet
End Sub

Substitute .CenterFooter or .RightFooter as desired.

If you're unfamiliar with macros, see David McRitchie's "Getting Started
with Macros":

http://www.mvps.org/dmcritchie/excel/getstarted.htm



In article ,
"Shooter" wrote:

My workbook has 50 worksheets. I would like to set up the footer to display
the sheet name when printed. The 50 worksheets are now in use without this
feature. I have no problem setting this up in "custom footer" for each
individual worksheet. Is it possible to select all worksheets and set this up
once for the entire workbook or do I have to do this one at a time for each
worksheet? Thanks in advance.