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

[tae1980]

Имеем именной диапазон описанный следующем образом:

=СМЕЩ(Лист1!$A$2;0;0;СЧЁТЗ(Лист1!$A$2:$A$3001);1)

То есть возвращаемый диапазон будет изменяться в зависимости от заполнения. Как в VBA:
1. Узнать размер диапазона?
2. Очистить диапазон?

[mchip]

ActiveSheet.Range("A2", Selection.End(xlDown)).Clear

И выбор и очистка в одном флаконе...

[tae1980]

Сообщение от mchip

ActiveSheet.Range("A2", Selection.End(xlDown)).Clear

И выбор и очистка в одном флаконе...

А как это привязать к именованному диапазону? Что-то у меня не получается.
Например если диапазон носит имя "Колонка1"...

[mchip]

А зачем привязывать?
Диапазон начинается с ячейки "А2", пустых ячеек нет, вот и удаляем все в низ от ячейки "А2"...

[tae1980]

Сообщение от mchip

А зачем привязывать?
Диапазон начинается с ячейки "А2", пустых ячеек нет, вот и удаляем все в низ от ячейки "А2"...

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

[mchip]

Ну тогда так:

ActiveWorkbook.Names("Имя_диапазона").Delete

[tae1980]

Сообщение от mchip

Ну тогда так:

ActiveWorkbook.Names("Имя_диапазона").Delete

Это удаляет сам диапазон, а не очищает ячейки входящие в него.

[mchip]

Что бы очистить ячейки:

ActiveWorkbook.Names("Имя_диапазона").RefersToRange.Clear

[tae1980]

Сообщение от mchip

Что бы очистить ячейки:

ActiveWorkbook.Names("Имя_диапазона").RefersToRange.Clear

VBA ругается "Application-defined or object-defined error"

[mchip]

А какой диапазон ты имеешь в виду? Данный код удаляет только значения ячеек которые входят в именованный диапазон. Может быть нужно удалить список? (проверки данных)?