Is this possible? User has a workbook with multiple sheets already set up.
They want to copy the header and footer from one of the sheets to all other
sheets.

I'd like to set it up so that it prompts them for the sheet with the h/f to
be copied and then asks which other sheet(s) to copy it to.

I don't want the actual code (like to struggle through that myself) - just a
helpful shove in the right direction.

Lauri

Forgot to mention - I'm using version 2000.


"LauriS" wrote:

> Is this possible? User has a workbook with multiple sheets already set up.
> They want to copy the header and footer from one of the sheets to all other
> sheets.
>
> I'd like to set it up so that it prompts them for the sheet with the h/f to
> be copied and then asks which other sheet(s) to copy it to.
>
> I don't want the actual code (like to struggle through that myself) - just a
> helpful shove in the right direction.
>
> Lauri

The header and footer is part of the PageSetup. Rather than copy, you could
just use the same PageSetup code for each sheet. This code would put the
header on all sheets. You can work from there.

For i = 1 To Sheets.Count
Sheets(i).PageSetup.CenterHeader = "&"Arial" &12 HeaderText"
Next

"LauriS" wrote:

> Forgot to mention - I'm using version 2000.
>
>
> "LauriS" wrote:
>
> > Is this possible? User has a workbook with multiple sheets already set up.
> > They want to copy the header and footer from one of the sheets to all other
> > sheets.
> >
> > I'd like to set it up so that it prompts them for the sheet with the h/f to
> > be copied and then asks which other sheet(s) to copy it to.
> >
> > I don't want the actual code (like to struggle through that myself) - just a
> > helpful shove in the right direction.
> >
> > Lauri