Подскажите, как быть, не совсем понимаю, в чём проблема. есть вот что:  
 
Set rngPeriod = Range(Cells(3, intX), Cells(3, intColumn.Column))  
 
MsgBox WorksheetFunction.Average(rngPeriod) 'так работает  
Set rngMiddle = WorksheetFunction.Average(rngPeriod) 'так не работает  
 
всё одинаково написано, но в мсджбоксе срабатывает, а при присвоении значения rngMiddle ругается на Average, что он object required