Sub reNameSheets()
Const listColumn As String = "A"
Dim ws As Worksheet
Dim SheetCount As Integer
Dim listStartingRow As Long
SheetCount = ActiveWorkbook.Worksheets.Count
listStartingRow = 2
For Each ws In ThisWorkbook.Worksheets
If ws.Name < "Sheet1" Then
Worksheets(ws.Name).Name = Range(listColumn & i).Value
SheetCount = SheetCount + 1
listStartingRow = listStartingRow + 1
End If
Next
End Sub

"DanaK" wrote:

I've read every posting I could find for renaming sheet tabs, but haven't
stumbled upon a solution. I want to take a list on a worksheet and from that
list (in sequential order A1-A100), rename every tab in the workbook. Is this
possible?
--
DanaK