ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   Excel Header and Footer (https://www.excelbanter.com/excel-discussion-misc-queries/196672-excel-header-footer.html)

BBZ

Excel Header and Footer
 
How to apply a customized header and footer to all other files and new
workbooks ?

Gord Dibben

Excel Header and Footer
 
Open a new workbook. Customize as you wish. To set a footer for each
sheet,
select a sheet then right-click and "select all sheets".

Enter your footer on the active sheet and will be done to all. Ungroup
sheets
when done.

FileSave As Type: scroll down to Excel Template(*.XLT) and select. Name
your
workbook "BOOK"(no quotes). Excel will add the .XLT to save as BOOK.XLT.

Store this workbook in the XLSTART folder usually located at........

C:\Documents and Settings\username\Application Data\Microsoft\Excel\XLSTART

This will be the default workbook for FileNew or the Toolbar button
FileNew or
CTRL + n

WARNING................Do not use FileNew...Blank Workbook or you will get
the
Excel default workbook.

NOTE: Existing workbooks are not affected by these settings.

You can also open a new workbook and delete all but one sheet. Customize as
you wish then save this as SHEET.XLT in XLSTART folder also. It now becomes
the default InsertSheet.

More can be found on this in Help under "templates"(no quotes).

Alternative for existing workbooks could be a macro.

Sub Path_All_Sheets()
Set wkbktodo = ActiveWorkbook
For Each ws In wkbktodo.Worksheets
ws.PageSetup.RightFooter = ActiveWorkbook.FullName & " " & Chr(13) _
& Application.UserName & " " & Date
Next
End Sub

Edit to suit


Gord Dibben Excel MVP

On Tue, 29 Jul 2008 01:08:06 -0700, BBZ
wrote:

How to apply a customized header and footer to all other files and new
workbooks ?




All times are GMT +1. The time now is 11:40 PM.

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