Добрый день!  
 
Необходимо в процедуру вытащить результат функции (Function) и зафиксировать используя оператор Set или как-нибудь иначе?  
Например, в данном случае test1 вытащит результат, а test2 даст ошибку. Общий смысл в том чтобы избежать многократного обращения к функции внутри процедуры. Помогите плиз.  
 
Function CountCellsInSelection() As Integer  
Dim sr As Range  
Dim ncells As Integer  
If TypeName(Selection) <> "Range" Then  
ncells = 0  
Else  
Set sr = Range(Selection, Selection)  
ncells = sr.Cells.Count  
End If  
CountCellsInSelection = ncells  
End Function  
 
Sub test1 ()  
MsgBox CountCellsInSelection  
End Sub  
 
Sub test2 ()  
Set X = CountCellsInSelection  
MsgBox X  
End Sub