| 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 | |||
Hybrid Mode
