VBA Help: name existing sheets from list

[imaguy77]

Hi all,

Wondering if I can get some help, shouldn't be too much code but i'm new to VBA.

I have a list of varying length in Sheet1 in column A which I want to be the sheet names of already existing sheets.

How do I rename the sheets in the workbook, starting with the 2nd sheet (don't want to rename Sheet1) according to the list of names?

Thanks!

 

[VoG]

Try

Sub NameSheets()
Dim i As Long
For i = 2 To Sheets.Count
    On Error Resume Next
    Sheets(i).Name = Sheets(1).Range("A" & i).Value
    On Error GoTo 0
Next i
End Sub

 

[imaguy77]

so simple. awesome. thank you!!!