как вернуть присвоить значение функции?

[moon]

Здравствуй многоуважаемый All!

Прошу прощеня за немного ламерский вопрос, но очень жизненный для меня.

КАк присвоить переменной значение функции? Вчастности есть:

Range(А1:А331).Select
Range(А1:А331).Activate
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone

нужно чтобы вместо диапазона А1:А331 подхватывался диапазон непустых ячеек. пробовал всяко с DCount, но у меня ничего не вышло - видимо нарушил синтаксис. хотел подсунуть переменную

Range(var11).Select
Range(var11).Activate

но присвоить значение самой переменной из функции DCount(А,,А) как то не получилось. хелп плиз.