How to copy header/footer info?

  • Thread starter Thread starter Capt'n Roy
  • Start date Start date
C

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 <º((((<
Click to expand...
To reply to my mail: Remove 2313 from email address.
 
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.
 
Back
Top