kasaz
Sub TabInFooter()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Sheets
ws.PageSetup.RightHeader = ws.Name
Next ws
End Sub
If not familiar with VBA and macros, see David McRitchie's site for more on
"getting started".
http://www.mvps.org/dmcritchie/excel/getstarted.htm
In the meantime..........
First...create a backup copy of your original workbook.
To create a General Module, hit ALT + F11 to open the Visual Basic Editor.
Hit CRTL + R to open Project Explorer.
Find your workbook/project and select it.
Right-click and InsertModule. Paste the code in there. Save the
workbook and hit ALT + Q to return to your workbook.
The macro can be assigned to a button or shortcut-key combo.
Could also be run as a Before_Print event.
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Sheets
ws.PageSetup.RightHeader = ws.Name
Next ws
End Sub
This code would go into the ThisWorkbook module.
Gord Dibben Excel MVP
On Thu, 24 Feb 2005 11:45:02 -0800, "kasaz"
wrote:
I have 4 large workbooks. I have to print all of the pages in each monthly.
I would like to add the names of the tabs in individual headers for each tab.
Is there a formula I can use that will pick this up, or will I have to type
each one manually?