Добрый день!  
Помогите решить задачку: Нужен код для подсчета значений ячеек, у которых соседние ячейки удовлетворяют определенным условиям. Что-то типа суммпроизв(--(A1:A10>Xi);--(B1:B10<Yi);C1:10), только обязательно через макрос (MS Excel 97-2003 и 2007). Пробовал вот так:  
 
A=1  
B=1  
C=1  
Do while A<>""  
if cells(A,1)> Xi then  
 if cells(B,2)<Yi then X=X+cells(C,3)  
end if  
loop  
 
Работает, но т.к. ячеек много и условий несколько, считает достаточно долго.  
Может быть, кто подскажет синтаксис через worksheetfunction.sumproduct?  
Пробовал вот так, выдает ошибку Type mismatch:    
set Myrange1=range(cells(1,1), cells(10,1)  
set Myrange2=range(cells(1,2), cells(10,2)  
Set Myrange3=range(cells(1,3), cells(10,3)  
X=evaluate("worksheetfunction.sumproduct(--(myrange1>Xi), --(myrange2<Yi), myrange3)"  
Напишите, как правильно, плиз...