Excel Como corrigir minha macro que criei no Libre Calc?

[Ygor Ferreira Campos de Sá]

Eu criei uma macro no Libre Calc que exibe a linha, a coluna e o texto escrito na célula selecionada, a linha e a coluna são exibidas, porém o texto é sempre em branco, mesmo que haja texto dentro da célula. Qual será o problema da macro? (se você copiar este código, a macro pode rodar ou pode apreseentar um problema de sintaxe que não identifiquei)>

public Doc as object
public planilha as object
public ActiveCel as object
public celula as object
public celula2 as object
public linha as integer
public coluna as integer
Sub Main2
    Doc = ThisComponent
    planilha = ThisComponent.Sheets.getByName("Planilha1")

    If Doc.currentSelection.supportsService    ("com.sun.star.sheet.SheetCell") Then
        ActiveCel = Doc.currentSelection
    End If 
    linha = ActiveCel.CellAddress.Row
    coluna =  ActiveCel.CellAddress.Column
    print "A linha da célula é: ",ActiveCel.CellAddress.Row +1 
    print  "A coluna da célula é: ",ActiveCel.CellAddress.Column + 1
    celula = planilha.getCellByPosition(linha, coluna)
    texto = celula.String
    print "O texto da célula é: ", texto

    
End Sub

Desculpem, o problema já foi resolvido, em  celula = planilha.getCellByPosition(linha, coluna) eu deveria fazer (coluna, linha)