[Iska]

1. Решается вопрос, который звучит в шапке изначально. Это позволит в дальнейшем работать быстрее без скрипта там где его нет. »

Вставьте в проект рабочей книги и выполните:

Код:

Option Explicit

Sub SetNames()
    Dim objWorksheet As Worksheet
    Dim objCell As Range
    Dim i As Long
    
    Set objWorksheet = Selection.Worksheet
    
    If objWorksheet.Type = xlWorksheet Then
        i = 1
        
        For Each objCell In Selection
            objWorksheet.Names.Add "_" & CStr(i), "=" & objCell.Address(, , xlR1C1, True)
            
            i = i + 1
        Next
    End If
    
    Set objWorksheet = Nothing
End Sub

Решите вопрос, который звучит в шапке изначально.

Если я скопирую диапазон ячеек с одним общим именем, то потом из него я не смогу копировать нужные мне ячейки в другие места документа ворд, связь повесится не верно. »

Данное утверждение неверно. Сможете.

Iska, правильно ли я исправил кусок кода для более наглядности: »

Вы получите имена вида: «i1i», «i2i», «i3i» и т.д.