I am trying to name the current sheet to the value of the
activecell. The code below is what I am using and it adds
an additional number rather than renumbering the sheet
that I am naming if the sheet already exists. Such as
Name1 the next would be Name12 the next would be Name123
then Name1234, how can I fix the code to a form like Name1
then Name2 then Name3 -- Similar to the way Excel does
this with sheets.

Thank You



strNewName = ActiveCell.Value

i = 0
newsh:
i = (i + 1)
strNewName = strNewName & i
For Each wks In ThisWorkbook.Worksheets
If wks.Name = strNewName Then
GoTo newsh:
ActiveSheet.Name = strNewName
blnDuplicate = True
End If
Next wks
If blnDuplicate = False Then
ActiveSheet.Name = strNewName
End If