проверка диапазона

[дмидми]

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

Т.е. Вашу функцию можно использовать только вызвав из ячейки листа? А если ей требуется воспользоваться в основном коде? Как ее вызвать из макроса с явно заданным диапазоном?

Вроде бы (так же, как и любую другую) эту функцию можно вызывать и с листа
=ЕСЛИ(HasBlanks(A1:B3); ...;
, и из кода
if HasBlanks(Range("A1:B3")) Then ...

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

[SAS888]

Но это и есть явное определение диапазона, что не подходит (я так понимаю) автору.
Так какую ошибку вызывает Intersect?

[дмидми]

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

Но это и есть явное определение диапазона, что не подходит (я так понимаю) автору.

Это всего лишь пример вызова. Вместо Range("A1:B3") можно написать, например, ActiveSheet.UsedRange.Columns(1) или что-то другое, динамически определяющее нужный диапазон.

[SAS888]

Ладно. С SpecialCells разобрались. А что, все-таки, не так с Intersect?

[дмидми]

Просто требуется аккуратность, поскольку эта функция генерит ошибку (см. выше), если один из аргументов имеет значение Nothing или, например, если диапазоны принадлежат разным листам.

Жаль, что в хэлпе об этом не сказано.

[SAS888]

Ваша принципиальность восхищает.
Ну, не вставлять же в каждый конкретный ответ кучу всевозможных проверок (наличие пути, файла, версию Excel и т.д.). Это все индивидуально для каждого случая. Пусть авторы вопроса решают - что им нужно, а что нет. Тем более, что это уже отдельная тема.