Переименовка листов по CodeName

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh As Long
If Not Intersect(Range("M2:M32"), Target) Is Nothing Then
    For Each iCell In Target
        Select Case iCell.Address(0, 0)
            Case "M2": sh = 3
            Case "M3": sh = 4
            Case "M4": sh = 5
            Case "M5": sh = 6
            Case "M6": sh = 7
            Case "M7": sh = 8
            Case "M8": sh = 9
            Case "M9": sh = 10
            Case "M10": sh = 11
            Case "M11": sh = 12
            Case "M12": sh = 13
            Case "M13": sh = 14
            Case "M14": sh = 15
            Case "M15": sh = 16
            Case "M16": sh = 17
        End Select
        Sheets(sh).Name = IIf(iCell <> "", iCell.Value, WorksheetFunction.Rept(" ", sh))
    Next
End If
End Sub

Private Sub Workbook_Open()
  Dim wsSh As Object
    For Each wsSh In Me.Sheets
        Protect_for_User_Non_for_VBA wsSh
    Next wsSh
End Sub
Sub Protect_for_User_Non_for_VBA(wsSh As Worksheet)
    wsSh.Protect Password:="0098", DrawingObjects:=True, Contents:=True, Scenarios:=True _
        , AllowFormattingColumns:=True, AllowFormattingRows:=True, AllowFiltering _
        :=True, UserInterfaceOnly:=True
End Sub
'https://www.cyberforum.ru/vba/thread2661698.html
Private Sub Workbook_Open()
If Me.ActiveSheet Is List1 Then List1.Worksheet_Activate
End Sub

'https://www.cyberforum.ru/vba/thread2661698.html
 
Private Sub Workbook_Open()
    Dim wsSh As Worksheet
    For Each wsSh In Me.Worksheets
          wsSh.Protect "0098", True, True, True, True, , True, True, AllowFiltering:=True
    Next wsSh
    If Me.ActiveSheet Is List1 Then List1.Worksheet_Activate
End Sub

iRow = iCell.Row - 0