Rename Worksheets Excel 2007

[tf37]

This macro works for the most part, but what happens is it doesn’t completely rename the entire sheet.
If the sheet name is “Sheet1” and you run the macro, it renames it to “Sheet71 1”
What am I missing here to get it to just rename the Sheet1 to Sheet71 without leaving the 1 after the rename?
If steps to the next sheet, like Sheet2 and renames it Sheet72 2 and so on.

Sub RenameSheets()
Dim ws As Worksheet

For Each ws In Worksheets
If ws.Name Like "Sheet#*" Then
ws.Name = Replace(ws.Name, "Sheet", "Sheet71 ", 1, 1)
End If
Next ws
End Sub

 

[Fluff]

How about

Sub RenameSheets()
   Dim ws As Worksheet
   
   For Each ws In Worksheets
      If ws.Name Like "Sheet#*" Then
         ws.Name = "Sheet" & Split(ws.Name, "et")(1) + 70
      End If
   Next ws
End Sub

The code tags is the # icon in the reply window. Simply click the icon & then paste the code between them.

 

[tf37]

That did it just fine, thank you.
I'm still puzzled why the old macro didn't work when I'm pretty sure it was fine before.
I use to use it also to rename sheets from Sheet1...etc, to List1 List2 etc too, and perhaps that is where I'm mixing it up at.
I use the all this in compiling a jury wheel for prospective jurors, and go through sheet name changes from time to time.
Anyway, many thanks for all the help, and the code tag information
Terry

 

[Fluff]

Glad we could help & thanks for the feedback