Headers & Footers

[Alby]

I have a large book 20+ spreadsheets and I want to put
the same footer ( confidential, date) on all pages and
the sheet tab on the header, so each header would be
different.

How do I do this?

Any help much appreciated.


Alby

 

[beeawwb]

I don't know much about VBA programming, I'm self teaching myself as
go, mainly by reading these forums (newsgroup) and trying to solve som
of these problems.

In my head, here's what needs to be done.

Create a function that defines a range of sheets, moving through eac
one, and then doing this...

ActiveWorksheet.PageSetup.CenterHeader = Worksheets("Sheet1").Name

or similar. I've had success doing this

Worksheets("Sheet1").PageSetup.CenterHeader
Worksheets("Sheet1").Name

But that's specific to a name.

*thinks* Then again... What if...

Define a variable, say "Currentworksheetname" which changes each tim
it selects a worksheet, then d
Worksheets(Currentworksheetname).Pagesetup.etc.etc

Footer is easy to set, that's a flat value, which would be done on eac
select.

If anybody knows specificly how to do those things, or has differen
solutions, go for it. I'm just rambling and trying to teach myself ne
things. I'm going to go search the help library and work out the code
or similar.

-Bo

 

[Debra Dalgleish]

Select all the sheets (right-click on a sheet tab,
choose Select All Sheets)
Choose View>Header and Footer
Click the Custom Header button
Click in one of the sections, and click the Sheet tab button
Click OK
Click the Custom Footer button
Click in one of the sections, and type 'Confidential'
Click in one of the sections, and click the Date button
Click OK
Ungroup the sheets (right-click on a sheet tab,
choose Ungroup Sheets)