Copy header footer to another sheet (vba?)

VoG

Legend

Joined

Jun 19, 2002

Messages

63,650

• Jun 30, 2009

• #2

Try

Code:

Sub test()
With Sheets("Sheet2").PageSetup
    .LeftHeader = Sheets("Sheet1").PageSetup.LeftHeader
    .CenterHeader = Sheets("Sheet1").PageSetup.CenterHeader
    .RightHeader = Sheets("Sheet1").PageSetup.RightHeader
    .LeftFooter = Sheets("Sheet1").PageSetup.LeftFooter
    .CenterFooter = Sheets("Sheet1").PageSetup.CenterFooter
    .RightFooter = Sheets("Sheet1").PageSetup.RightFooter
End With
End Sub

 

Upvote 0

Andrew Poulsom

MrExcel MVP

Joined

Jul 21, 2002

Messages

73,092

• Jun 30, 2009

• #3

Click the tab of the sheet containing your header, then Ctrl+click the other sheet. Choose File|Page Setup and click OK. Click any other sheet to exit Group mode.

 

Upvote 0

T

theta

Well-known Member

Joined

Jun 9, 2009

Messages

960

• Jun 30, 2009

• #4

Both work....but the images contained in the header do not transfer across?

Regards

T

 

Upvote 0

Andrew Poulsom

MrExcel MVP

Joined

Jul 21, 2002

Messages

73,092

• Jun 30, 2009

• #5

Have you tried setting the appropriate LeftHeaderPicture properties?

http://msdn.microsoft.com/en-us/library/aa175658(office.11).aspx

Sorry, I don't have Excel 2003 to test.

 

Upvote 0

C

ChgsAllAround

New Member

Joined

Apr 11, 2008

Messages

36

• Jul 30, 2009

• #6

I have a similar issue of needing to put a graphic in a different sheet's header/footer, but I cannot reference an external location. I can either copy the footer from another sheet in the workbook or I can copy the image from another location still within the same workbook. Are there any methods for doing this and still be able to get the graphic? Thanks

 

Upvote 0