Problema com MoveCursorToEnd - xlToRight

Estou seguindo a explicação do “PDF: http://www.openoffice.org/documentation/HOW_TO/various_topics/VbaStarBasicXref.pdf - página 23” e adicionando os elementos aos poucos para compreender a execução.

Quando chego no código abaixo tenho a seguinte mensagem de erro:
“Erro de Execução BASIC: 35 - MoveCursorToEnd”

Alguém pode me explicar se é bug no LibreOffice ou falha no meu código?

*LibreOffice Versão: 6.2.5.2 (x64)

Dim oSheet as Object, oCell as Object

'''get some useful objects
oSheet = ThisComponent.CurrentController.ActiveSheet

'''go to upper slef corner of range
oCell = oSheet.getCellRangeByName("H3")
ThisComponent.CurrentController.select(oCell)

'Find the last cell in the current row
'this takes cursor to cell E3
oCell = MoveCursorToEnd(oCell,"xlToRight")
ThisComponent.CurrentController.select(oCell)

Problema resolvido aqui: Problem with MoveCursorToEnd - xlToRight - #3 by dgulias

Deveria ter criado um módulo de suporte chamando a Function que o próprio PDF ensina.