Excel - Copy Sheet with Next SheetName Number

[Salut39]

Hi Guys,

I need help on creating simple macro which will copy a worksheet named "001" with the next sequential number "002" and then "002" to "003" and so on.

Thanks
Yuri

 

[PHV]

What have you tried so far and where in your code are you stuck ?

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[Salut39]

I have very basic knowledge I recorded:

Sheets("001").Select
Sheets("001").Copy Before:=Sheets(1)
Sheets("001 (2)").Select
Sheets("001 (2)").Name = "005

 

[SkipVought]

Hi,

    Sheets("001").Copy Before:=Sheets(1)
    Sheets(1).Name = Format(Sheets.Count, "000")

Skip,
^{Don't let the Diatribe...
talk you to death!}
_{Just traded in my old subtlety...
for a NUANCE!}

 

[Salut39]

Thanks Skip,

That works well, it counts sheets creating next number. It's good enough but if there are other sheets named "summary" for example it count them too. But I can work around this.

Thanks

 

[SkipVought]

Minus ONE, if you have ONE sheet that is not "numbered".

Skip,
^{Don't let the Diatribe...
talk you to death!}
_{Just traded in my old subtlety...
for a NUANCE!}

 

[Salut39]

Works great!

Thanks