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" <Nigel@discussions.microsoft.com> wrote in message
news:AB06FE3D-1DAB-46EC-90AF-A6FFE850B024@microsoft.com...
> 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.
>