is it possible to name sheets from cell reference?

[rexcel3]

is it possible to name sheets from cell reference from another sheet?

example:
i have a list of 4 names in sheet 1.

i want to name sheet 4, 5, 6, 7 from those names in sheet 1.

name 1 --> sheet 4
name 2 --> sheet 5
name 3 --> sheet 6
name 4 --> sheet 7

 

[Joe4]

i want to name sheet 4, 5, 6, 7 from those names in sheet 1.

From where exactly in Sheet 1 are these names found?
You need to tell us the EXACT cell addresses where these names occur if you want us to create some VBA code to do this for you.

 

[rexcel3]

From where exactly in Sheet 1 are these names found?
You need to tell us the EXACT cell addresses where these names occur if you want us to create some VBA code to do this for you.

they start from A2 and downwards.

i got a range connected to a table there.

 

[Joe4]

Try this code:

Sub RenameSheets()

    Dim i As Long
    
    For i = 2 To ActiveWorkbook.Worksheets.Count
        Sheets(i).Name = Sheets(1).Cells(i, "A")
    Next i
    
End Sub