Нахождение среднего значения по условию через AverageIf - VBA

Формулировка задачи:

Здравствуйте. Задача: найти среднее значение массива чисел, которые больше определенного параметра. Массив это дневные приросты доходней валюты, а параметр это VaR. все число дробные. Подскажите как правильно оформить синтаксис функции AverageIf для десятичных чисел. Вот так как код отрабатывает нормально:

Dim m As Double
Sheets("Лист1").Activate
m = 11
Cells(1, 3) = Application.WorksheetFunction.AverageIf(Range(Cells(1, 1), Cells(12, 1)), ">" & m)

Но если параметру m присвоить десятичное число, то появляется ошибка 1004 невозможно получить свойство. Помогите пожалуйста.

Решение задачи: «Нахождение среднего значения по условию через AverageIf»

textual
                            Листинг программы 
                        
                            Cells(1, 3) = WorksheetFunction.AverageIf(Range(Cells(1, 1), Cells(12, 1)), ">" & Str(n))