Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Problem Copying Header/Footer
Hi,
I am using Excel 2000. When I copy a Sheet and and paste it in another sheet I do not get the header footer information. How can I copy the header foooter information also or How can I set the header/footer information to be used on all sheets in the book? Any help will be greatly appreciated. This is the marco I am having the user to run: Sub AddSheet_Click() ' ' AddSheet_Click Macro ' Macro recorded 9/26/2003 by Sweetie Management LLC ' ' ' copy the template ' Sheets("Template").Select Cells.Select Selection.Copy ' ' add a new sheet ' Sheets.Add ActiveSheet.Select ' ' paste the template to the new Sheet ' Cells.Select ActiveSheet.Paste ' ' rename sheet ' MsgBox "Please rename this new sheet." & vbCrLf & _ "Right Click the new sheet tab." & vbCrLf & _ "Then choose RENAME." ' ' select button then delete it ' ActiveSheet.Shapes("Button 1").Select Selection.Delete Range("B4").Select End Sub -- Capt'n Roy ))))º Think Fish <º((((< To reply to my mail: Remove 2313 from email address. |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Problem Copying Header/Footer
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 -- Regards, Tom Ogilvy Capt'n Roy wrote in message ... Hi, I am using Excel 2000. When I copy a Sheet and and paste it in another sheet I do not get the header footer information. How can I copy the header foooter information also or How can I set the header/footer information to be used on all sheets in the book? Any help will be greatly appreciated. This is the marco I am having the user to run: Sub AddSheet_Click() ' ' AddSheet_Click Macro ' Macro recorded 9/26/2003 by Sweetie Management LLC ' ' ' copy the template ' Sheets("Template").Select Cells.Select Selection.Copy ' ' add a new sheet ' Sheets.Add ActiveSheet.Select ' ' paste the template to the new Sheet ' Cells.Select ActiveSheet.Paste ' ' rename sheet ' MsgBox "Please rename this new sheet." & vbCrLf & _ "Right Click the new sheet tab." & vbCrLf & _ "Then choose RENAME." ' ' select button then delete it ' ActiveSheet.Shapes("Button 1").Select Selection.Delete Range("B4").Select End Sub -- Capt'n Roy ))))º Think Fish <º((((< To reply to my mail: Remove 2313 from email address. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Header and Footer | Excel Worksheet Functions | |||
Header and Footer | Excel Worksheet Functions | |||
HEADER & FOOTER | Excel Worksheet Functions | |||
Header/Footer | Excel Discussion (Misc queries) | |||
header/footer | Setting up and Configuration of Excel |