Make Codename macro shorter & possibly more efficient

This code runs fine. However it is long and repetitive.
I'm believing there's a way to loop something like this to make it shorter but I don't know how just yet. How do I set

Sub renameLogTabs()

    Sheet2.Name = Range("B2").Value
    Sheet3.Name = Range("B3").Value
    Sheet4.Name = Range("B4").Value
    Sheet5.Name = Range("B5").Value
    Sheet6.Name = Range("B6").Value
    Sheet7.Name = Range("B7").Value
    Sheet8.Name = Range("B8").Value
    Sheet9.Name = Range("B9").Value
    Sheet10.Name = Range("B10").Value
    Sheet11.Name = Range("B11").Value
    Sheet12.Name = Range("B12").Value
    Sheet13.Name = Range("B13").Value
    Sheet14.Name = Range("B14").Value
    Sheet15.Name = Range("B15").Value
    Sheet16.Name = Range("B16").Value
    Sheet17.Name = Range("B17").Value
    Sheet18.Name = Range("B18").Value
    Sheet19.Name = Range("B19").Value
    Sheet20.Name = Range("B20").Value
    Sheet21.Name = Range("B21").Value
    Sheet22.Name = Range("B22").Value
    Sheet23.Name = Range("B23").Value
End Sub

Sub Maybe()
Dim i As Long
With ActiveSheet
    For i = 2 To 23
        Sheets("Sheet" & i).Name = .Cells(i, 2).Value
    Next i
End With
End Sub

Run the macro in this test file. It doesn't care what the sheets are currently named or how many there are. It just renames all the sheets except the first one to the values you have starting in B2.

How about

Sub Dbroek()
   Dim Ws As Worksheet
   Dim i As Long
   
   For Each Ws In Worksheets
      If InStr(1, Ws.CodeName, "Sheet") > 0 Then
         i = Replace(Ws.CodeName, "Sheet", "")
         Select Case i
            Case 2 To 23
               Ws.Name = Range("B" & i).Value
         End Select
      End If
   Next Ws
End Sub

Gurus, thank you for your generous offers. Unfortunately, I've come to learn that the code I've originally written does not work for what I intended after all. So, therefore none of you offers will have any impact on my problem. And, I am so sorry for posting my question before learning of this problem.

I will post the file for your review for you to see why but I fully understand if you decide to move on and not attempt any further suggestions.
Anyways, my original code does not work because it becomes corrupt when try to sort cells A1:E17 in ABC order or if I clear any of the values in cell B2:B17. The B-column cells are what I'm using to try and rename the worksheets in a reliable manner. I might still come up with an alternative option... but so far, am awfully stymied.

Again, I am gracious for your generosity. Thank you much for sharing. This is very educational for me.