Как очистить имя ячейки?

[Maxx]

В свое время EducatedFool написал данный код по присвоению ячейки имени

Sub SetName()
On Error Resume Next
    Dim ce As Range
    For Each ce In Selection.Cells
        CellName = Trim$(ce.Value): If Len(CellName) > 0 Then ce.Name = CellName
    Next
End Sub

EducatedFool, а как теперь разименовать ячейку?
Как не пытался подкорректировать код, ничего евстевственно не получилось

[EducatedFool]

Sub ОчиститьВсеИменаВКниге()
    For Each n In ThisWorkbook.Names: n.Delete: Next
End Sub


Sub ОчиститьВсеИменаНаАктивномЛисте()
    For Each n In ActiveSheet.Names: n.Delete: Next
End Sub


Sub ОчиститьИменаВыделенныхЯчеек()
    Dim n As Name
    For Each n In ThisWorkbook.Names
        addr = Replace(n.Value, "=", "")
        If Not Intersect(Application.Range(addr), Selection) Is Nothing Then n.Delete
    Next
End Sub

[Maxx]

Примного благодарен!

А я был уже так близко