Hi Don,

Thank you such much for your response. I am sorry I didn't see it before!
I appreciate how simple you made this!!!



"Don Guillett" wrote:

See if this idea helps

Sub namesheets()
For i = 1 To 18
Sheets("sheet" & i).Name = Cells(i, "a")
Next i
End Sub

--
Don Guillett
SalesAid Software

"Cheri" wrote in message
...
I am wanting to automatically name all sheet tabs from a list I have
created
on a worksheet named Team. I have set up 18 sheets currently named Sheet1
through Sheet18 (besides the first two named Team and Stats).

I would like to have each tab renamed respectively according to the list I
have on the Team tab in cells A1 through A18.

I have tried a couple other tips on here but they merely add more sheets
and
I have data on the current sheets that I want to rename.

Thanks,
Cheri