rename worksheets based on list

[qontrol]

Hello everyone,

I have a bunch of worksheets as from sheet2 to sheet35.

I need to rename them based on a list in sheet1 named "List" starting from cell A2.

I've already found this, but it doens't work:

Sub rename()


Dim lr As Long


lr = Sheets("List").Cells(Rows.Count, 1).End(xlUp).Row


For i = 2 To Worksheets.Count
    Worksheets(i).Name = Worksheets("List").Range("A2:A" & lr).Value


Next


End Sub

Any help is appreciated!

Thanks

 

[njimack]

I think the line that renames the sheet should be:

Worksheets(i).Name = Worksheets("List").Range("A" & lr).Value

 

[Fluff]

How about

Worksheets(i).Name = Worksheets("List").Range("A" & i).Value