To rename a text box manually:

Select the text box
Click in the Name Box, to the left of the Formula Bar
Type a name
Press the Enter key

To rename all the text boxes programmatically, you can use code similar
to the following:

Sub NumberTextBoxes()
Dim objTB As TextBox
Dim i As Integer
i = 1
For Each objTB In ActiveSheet.TextBoxes
objTB.Name = "Textbox " & i
i = i + 1
Next objTB
End Sub


Jerry Dyben wrote:
Need to change the number in Text Box in Excel. For example; (Text Box 209).
I want to change that number to (Text Box 1). In fact I would like to
sequence the Text Box numbers form 1 to 160. Can you help?


--
Debra Dalgleish
Excel FAQ, Tips & Book List
http://www.contextures.com/tiptech.html