Gerar informações aleatórias LibreOffice Calc

Fala, pessoal!

Sou novato no Libre, queria ver se podiam me informar como faço para pegar uma lista de palavras em um conjunto de células, apertar um botão criado e que uma dessas palavras seja selecionada aletoriamente para aparecer em outra célula. Exemplo: Crio uma lista com as palavras “Casa”, “Casebre” e “Mansão”, clico em um botão criado dentro do Libre com a palavra “Gerar” nele e em uma célula ao lado da lista é escolhido e preenchido aleatoriamente a palavra “Casebre”.

Agradeço desde já!

Ola @Xpecthor, segue uma sugestão …

REM ***** BASIC *****

'Caso queira GERAR na célula ativa 
' desabilite a linha GoToLocal

Sub Gerar
	GoToLocal "Planilha1.D3"
x = Int((6 - 1 + 1) * Rnd + 1)
ThisComponent.getCurrentSelection().Value = x
ThisComponent.getCurrentSelection().Formula = "=CHOOSE("& x &";B3;B4;B5;B6;B7;B8)"
 CreateUnoService("com.sun.star.frame.DispatchHelper") _
 .executeDispatch(ThisComponent.CurrentController.Frame _
  , ".uno:ConvertFormulaToValue", "", 0, Array())
End Sub


Sub GoToLocal ( xLocal$ )
dim Loc(0) as new com.sun.star.beans.PropertyValue
Loc(0).Name = "ToPoint" : Loc(0).Value = xLocal
CreateUnoService("com.sun.star.frame.DispatchHelper") _
.executeDispatch(ThisComponent.CurrentController.Frame _
, ".uno:GoToCell", "", 0, Loc())
End Sub

Arquivo do teste: Xpecthor.ods (199.7 KB)