Right click on the first tab (Sheet1), select view code, then place this paste this in.
Sub tabname()
Dim ws As Worksheet
Dim MyRow As Integer
MyRow = 1
For Each ws In Worksheets
ws.Activate
ws.Name = Cells(MyRow,1).Value
MyRow = MyRow + 1
Next
End Sub