Hi LRay67

You could try something like

For Each C In Range("P5:R5")
Sheets(x).Name = C
Next C

The len for the value in each cell will have to be less than the maximim for
an Excel sheet tab. I think it is 30 depending on your office version.
Also, they cannot use any invalid characters

Thanks,

"LRay67" wrote:

I have code below that I use to copy range of cells to other tabs that are
inserted by a user. Is there away after this code to have the same macro
change the tab to what is typed in textbox1 for all 10 tabs? Any help would
be appreciated. Thanks


Sub ChangeRequestNumber()
Range("P5:R5").Copy
For sh = 2 To Sheets.Count
If Sheets(sh).Name Like ("Request*") Then
ActiveSheet.Paste Destination:=Sheets(sh).Range("P5:R5")
End If
Next
End Sub