Change Only Certain Worksheet Names Using a List

this code under INPUTS code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim new_name As String
Dim ws As Worksheet

If Target.Column = 2 And Target <> "" Then
    Set ws = Sheets(old_name)
    ws.Name = Target.Value
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 2 And Target <> "" Then
    old_name = Target.Value
End If
End Sub

and this code in a module (insert Module)

Option Explicit

Public old_name As String