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

[Maxx]

Подскажите пожалйуста, следующее:
как с помощью кода VBA присвоить активной ячейке имя? Имя ячеки должно соответствовать значению этой ячеки.

Например: А1 = Фамилия, следовательно имя ячейки А1 должно быть Фамилия.

Заранее СПАСИБО!

[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

Код выполняется для всех выделенных ячеек.
Если ячейке уже было присвоено имя, оно не изменяется повторно.

Или так: (для активной ячейки)

Sub ЗаписаноМакрорекордером()
    On Error Resume Next
    ActiveWorkbook.Names.Add Name:=Trim$(ActiveCell.Value), RefersToR1C1:="=" & ActiveCell.Address(, , xlR1C1, True)
End Sub

[Maxx]

Спасибо огромное!
Ваш Sub, записанный макрорекордером очень похож на то, что я и делал, толькоу меня ни фига не работало. А вот теперь все супер!!!