tuandreevaПодскажите, что не так?
1) Не указан тип возвращаемого функций значения
2) Использовать пользовательскую функцию без параметров глупо. Эта функция будет считаться только если юзер зайдет в ячейку с формулой и ткнет F2, Enter. Или запросит полный пересчет листа. Автоматом она пересчитываться не будет.
3) IsNull() никогда не вернет True для ячейки листа. Поэтому цикл в принципе никогда не выполниться. Переменная n объявленна до цикла, но ей не задано никакое значение, вот она то и находится в null состоянии. Цикл эту переменную никогда не обновит в итоге функции возвращает null и он показывается на листе как #ЗНАЧ.

Hugo121 White Owl - по 3) - погодите, цикл как раз никогда не закончитсяОй, да действительно. Что-то я в третьем пункте глупость сказал, прошу прощения. Наверное у меня к тому моменту уже запасы кофе в организме закончились :)
Действительно, так как IsNull() на ячейку всегда True то цикл никогда не заканчивается в нормальном режиме. Переменная r объявленна как Integer, а значит ее максимум 32767 и на очередном r=r+1 когда r должен бы превратится в 32768, но не может - функция умирает по ошибке переполнения.
Если заменить r as Integer на r as Long то цикл умрет когда r дойдет до максимумального номера строки и условие цикла попытается проверить значение ячейки на несуществующей строке.
В любом случае, функция умирает с ошибкой а значение трупика показывается как #value.