[OO.org] Выполнить макрос из функции

Нужно чтобы по условию IF, выполнялся записанный макрос в электронной таблице. Для сего написана функция из которой уже вызывается макрос. Беда однако в том, что макрос из этой функции не отрабатывает при открытой таблице, а отрабатывает только при ее открытии один раз.

Код примерно такой, примерочный:

Function colfunc()
filling
end Function

Sub filling
Dim oDoc as Object
Dim oSheet as Object
Dim oSheets as Object
Dim oCell as Object

oSheet = thisComponent.Sheets.getByIndex(0)
oSheet.getCellRangeByName("A2").Value=50
End Sub