Copy Sheet and move to end

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hi,

i have posted something similar earlier today but this is alittle different.
I have a sheet called Template in a workbook. i need to be able to issue a
macro that will copy it and move it to the far right after all other sheets.
Then rename it 1 number above the last sheet. i.e. if the last sheet was 2567
then my new copied shett will be 2568.

regards,

N.S.
 
Sheets("TEMPLATE").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Sheets.Count

HTH
 
Back
Top