Rename Sheets Based On TextBox Values

Say you have a userform with 10 TextBoxes, let’s call them TxtN1…TxtN10 and your workbook has 10 sheets, say “Sheet1”…”Sheet10”. Now if one wants to code a procedure to rename those worksheets when the user hits a command button it’s simple enough.

Sub Rename_click()
For i = 1 To 10
With Sheets(“Sheet” & i )
. name = TxtN & i
End With
Next i
End Sub

But now if the user then changes the textboxes TxtN1…TxtN10 to a set of new strings it’s obvious that the following coding segment will not work:

For i = 1 To 10
With Sheets(TxtN & i)
.name = TxtN & i
End With
Next i

It goes without saying that the program will try to select the worksheets with the new name (and they obviously don’t exist yet)…