Выполнение функции average() над выделеной строкой в Calc

Как переделать макрос чтоб он выполнял заданую ф-ю "average()" над выделеной строкой, не меня диапазон ячеек. sub balrem ----------------------------------------------------------------------rem define variablesdim document as objectdim dispatcher as objectrem ----------------------------------------------------------------------rem get access to the documentdocument = ThisComponent.CurrentController.Framedis patcher = createUnoService("com.sun.star.frame.Dis patchHelper")rem ----------------------------------------------------------------------dim args1(0) as new com.sun.star.beans.PropertyValueargs1(0) .Name = "StringName"args1(0).Value = "=average(c7:cg7)"dispatcher.executeDisp atch(document, ".uno:EnterString", "", 0, args1())end sub