Работа с именным диапазоном

[eda]

А как программным образом бесконечный диапазон(например, "A:A") сделать именованным?

[EugeneS]

Добрый вечер,

Например, так:

Sub test()
Dim a As Variant
a = "A"
Names.Add Name:="test", RefersTo:=Range(a & ":" & a)
End Sub

переменная участвует в определении именованного диапазона, что позволяет изменять его размер при необходимости
Также можно добавить переменные строк и получить полную универсальность

[eda]

Спасибо за помощь!