Sub RenameSheets()

    Worksheets("List").Activate
    
    Dim r As Integer
    r = 1
    
    For Each Sheet In Sheets
        Sheet.Name = Cells(r, 1).Value
        r = r + 1
    Next
    
    Worksheets("Summary").Move _
    after:=Worksheets("List")
    
End Sub