[Pozia]

okshef, Iska, ничего не вышло. сделал буквально, как сказал okshef, то есть вот так:

Код:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Rows.Count > 1 Or Target.Columns.Count > 1 Then MsgBox "Âûáðàíî áîëåå 1 ÿ÷åéêè": Exit Sub
Option Explicit
Sub SetNames2()
    Dim objWorksheet As Worksheet
    Dim objCell As Range
    Dim strNewName As String
    Dim i As Long
    Set objWorksheet = Selection.Worksheet
    If objWorksheet.Type = xlWorksheet Then
        i = objWorksheet.Names.Count
        For Each objCell In Selection
            If Not RangeHasName(objCell) Then
                Do
                    strNewName = "_" & CStr(i)
                    i = i + 1
                    If Not NameExists(objWorksheet, strNewName) Then
                        Exit Do
                    End If
                Loop
                objWorksheet.Names.Add strNewName, "=" & objCell.Address(, , xlR1C1, True)
            End If
        Next
    End If
    Set objWorksheet = Nothing
End Sub
Function NameExists(objWorksheet As Excel.Worksheet, strName As String) As Boolean
   On Error Resume Next
   NameExists = Len(objWorksheet.Names(strName).Name) <> 0
End Function
Function RangeHasName(objRange As Excel.Range) As Boolean
   On Error Resume Next
   RangeHasName = Len(objRange.Name.Name) <> 0
End Function
End Function

и в ответ получил при запуске Ambiguous name detected: Worksheet_SelectionChange

[Pozia]

Подскажите пожалуйста еще как подсчитать количество именованных клеток на листе. Пробовал так: СЧЁТЕСЛИ(A1:AF828;"_*") но не выходит. Вот
здесь, пункт D есть какой то кусок кода для этого, но не пойму как его применить. Просто так не запускается

[Iska]

как подсчитать количество именованных клеток на листе. »

Количество имён: «ActiveSheet.Names.Count» и «ActiveWorkbook.Names.Count». Понятие «клетки» в Excel не используется. Назначить имя можно только диапазону (пусть даже и состоящему из одной ячейки, потому что ячейка — это тоже диапазон).

Вот здесь, пункт D есть какой то кусок кода для этого, но не пойму как его применить. »

Всё там верно. Вставить код в модуль в процедуру или функцию и запустить её на исполнение.

[Pozia]

Iska, я совсем чайник в этом (. Могли бы вы привести весь код как надо?

[Pozia]

Iska, по поводу количества мне тут помогли. Поможете на счет поста 42 ?

[Iska]

Постараюсь.

[Pozia]

Iska, заметил, что код в посте 34 начинает именовать ячейки, начиная с последнего максимального имени. Но если я удалил ранее созданные имена ячеек, то все равно имя присваивается с конца. То есть имею имена _1_, _2_, _10_, _11_, _12_, и в этом случае при запуске макроса присваивается следующее имя имя _13_ а не _3_. Можно ли это учесть? Спасибо

[Iska]

Pozia, время нужно выделить потребное. Пока его нет. Я помню и про предыдущее.

[Pozia]

Iska, доброго вечера. Может у Вас появилась минутка для помощи, случайно?

[Iska]

Pozia, надо вспоминать .