'assumes sheet number and list are the same number. 5 sheets & 5 names
Sub nametabs()
For i = 2 To Cells(Rows.Count, "a").End(xlUp).Row
Sheets(i).Name = Cells(i, "a")
Next
End Sub

--
Don Guillett
SalesAid Software

"gazza" wrote in message
...
Is there any way I can put names in a range on one sheet and then
automatically rename sheets with the names listed in the range without
manually renaming each sheet
--
gazza