Macro for copy and number new sheet

Hi everybody!

I am new at VBA, and I have some problem. I would like to make a code for copy a template sheet called V000 and name as V001. If V001 exsist call it V002... etc.

I already have found some formula but it's not working stg is missing and I don't know what:
Thanks for ur help!
Sub NewVendor()
'Copy template V000 and rename it
Dim V0 As Worksheet
Sheets("V000").Select
ActiveSheet.Copy After:=Sheets(Sheets.Count - 2)
Set V0 = ActiveSheet


Const strPrefix = "V0"
Const strFormat = "00"
Dim wsh As Worksheet
Dim lngMax As Long
Dim lngNum As Long
For Each wsh In Worksheets
If wsh.Name Like strPrefix & "*" Then
lngNum = Val(Mid(wsh.Name, Len(strPrefix) + 1))
If lngNum > lngMax Then
lngMax = lngNum
End If
End If
Next wsh
Set wsh = Worksheets.Add(After:=Worksheets(Worksheets.Count))
wsh.Name = strPrefix & Format(lngMax + 1, strFormat)
End Sub

That code seems to work for me although it creates two worksheets, one called "V000 (2)". I don't think you need the lines at the top with V0, just:

Please Login or Register  to view this content.

So now the sheet name is okey, but my problem that I need to copy a template sheet which called V000 and AFTER THAT rename it because I already have several data on it.

Originally Posted by yudlugar

That code seems to work for me although it creates two worksheets, one called "V000 (2)". I don't think you need the lines at the top with V0, just:

Please Login or Register  to view this content.

In that case:

Please Login or Register  to view this content.

Thank's working perfect!!!