Copy Sheet and move to end
 

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

--
(][ THIS EMAIL HAS BEEN SCANNED BY NORTON ANTIVIRUS ][)
"Nigel" wrote in message
...
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.