Макрос Cell Name

[VictorM]

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

[kuklp]

Sub CellNames()
    Dim s$, s1$
    s = "имя_" & Sheets("Temp").[A1]
    On Error Resume Next
    For Each cell In ActiveSheet.UsedRange
        s1 = cell.Name
        If Err Then
            Err.Clear
            cell.Name = s & cell.Address(0, 0)
        End If: Next: Sheets("Temp").[A1] = Sheets("Temp").[A1] + 1
End Sub

[Foxx]

kuklp,VictorM
Весьма благодарен.

[nilem]

----------

[VictorM]

аналогично, код:

Sub tt()
iCountAllNames = ActiveWorkbook.Names.Count
If iCountAllNames = 0 Then
   MsgBox "Имён нет"
Else
   MsgBox "Имён : " & iCountAllNames & " шт."
End If
End Sub

98298 имен!

[VictorM]

А вот этот код, взятый по ссылке, которую я Вам давал, вывел все адреса именованных ячеек.

With ThisWorkbook.Names 
     For iCount = 1 To .Count 
         Cells(iCount, 1).Value = .Item(iCount).Name 
         Cells(iCount, 2).Value = "'" & .Item(iCount).RefersToLocal 
     Next 
End With

Правда этот код, в отличие от предыдущего, работал ну ОЧЕНЬ долго))
даже простой "поиск найти выделить все" показывает сколько дублей ячеек с одним именем

P.S.
Файлик с результатами прикрепил.
Но, правда он даже упакованный получился 1,68Мб, это только выведены имена и адреса!

[Foxx]

VictorM
Огромное количество.