Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro to copy existing sheet to end
I am creating a macro to make several copies of a particular worksheet and
move each succeeding one to the end (a choice when doing it manually). However the macro recorder shows this Sheets("1").Copy After:=Sheets(8) How can I generically make the "After:=Sheets(8)" into "After:=End"? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro to copy existing sheet to end
try this.
Sheets(1).Copy After:=Worksheets(Worksheets.Count) -- jb "Steve" wrote: I am creating a macro to make several copies of a particular worksheet and move each succeeding one to the end (a choice when doing it manually). However the macro recorder shows this Sheets("1").Copy After:=Sheets(8) How can I generically make the "After:=Sheets(8)" into "After:=End"? |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro to copy existing sheet to end
Just in case there are chart or template sheets:
Sheets(1).Copy After:=Sheets(Sheets.Count) "john" wrote in message ... try this. Sheets(1).Copy After:=Worksheets(Worksheets.Count) -- jb "Steve" wrote: I am creating a macro to make several copies of a particular worksheet and move each succeeding one to the end (a choice when doing it manually). However the macro recorder shows this Sheets("1").Copy After:=Sheets(8) How can I generically make the "After:=Sheets(8)" into "After:=End"? |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro to copy and paste over existing files | Excel Discussion (Misc queries) | |||
Copy rows onto existing sheet / start a new sheet if full | Excel Programming | |||
Macro to create a new worksheet that is a copy of an existing one? | Excel Programming | |||
macro/sub to copy a specific ws from source wb to open wb and overwrite existing ws | Excel Programming | |||
Copy the entire sheet to overlay existing sheet? | New Users to Excel |