ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Worksheet Functions (https://www.excelbanter.com/excel-worksheet-functions/)
-   -   printing sheet names (https://www.excelbanter.com/excel-worksheet-functions/7688-printing-sheet-names.html)

Shooter

printing sheet names
 
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.
--
Shooter

JE McGimpsey

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.


Peter Ellis

Point to one of the sheet tabs, right click, choose the option select all
sheets from the context menu.

You can alternatively (if you only want a few worksheets selected) click on
one worksheet to select it, then CTRL +Click on another worksheet to select a
second, or Shift+Click on a secoond to select both worksheets along with all
in between them.



"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.
--
Shooter



All times are GMT +1. The time now is 04:00 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com