Macro to copy existing sheet to end

S

Steve

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"?
 
J

JLGWhiz

Just in case there are chart or template sheets:

Sheets(1).Copy After:=Sheets(Sheets.Count)
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

VBA Coding Help for Beginner 0
OnTime Change_Event macro AND copy to sheet2 macro trouble 7
Unhide sheet, copy and rename new sheets from list, rehide sheet 8
Select Text to End of Footnote 9
Macro to Combine Data from Multiple Sheets with Cell References 4
VBA for Dependents shortcut menu 0
Create Sheets from a Range and Copy Data on copy Data on newlycreated Sheets with the Sheet Names 2
Copy row info but not in normal column sequence 6

Top