How to copy header/footer info?

[Capt'n Roy]

HI,
I am using Excel 2000 for development.
The problem I have is when I copy a sheets contents I do not get the header
information.
I would like to be able to set the new sheets header/footer equal to the
copied sheet.

Any suggestions on how to copy the header/footer information via a macro?

--
Capt'n Roy

))))º> Think Fish <º((((<

To reply to my mail: Remove 2313 from email address.

 

[Tom Ogilvy]

copy the sheet, don't copy the cells.

Dim sh as Object
With ActiveWorkbook
.Sheets("Template").Copy After:=.sheets(.sheets.count)
set sh = .sheets(.Sheets.count)
End with
MsgBox "Please rename this new sheet." & vbCrLf & _
"Right Click the new sheet tab." & vbCrLf & _
"Then choose RENAME."

'
' select button then delete it
'
sh.Shapes("Button 1").Delete
sh.Range("B4").Select

==================
Otherwise,

Worksheets(2).PageSetup.LeftHeader = Worksheets(1).PageSetup.LeftHeader
and so forth.

 

[Capt'n Roy]

Tom,
Thasnkks for the help.

--
Capt'n Roy

))))º> Think Fish <º((((<

To reply to my mail: Remove 2313 from email address.