Addressing and Editing Individual Cells

Sub Swap_Values

Dim doc as object
Dim sheet as integer
Dim cell as object

    doc = ThisComponent
    sheet = doc.sheets(0)

    cell = sheet.GetCellByPosition(0, 0)
    cell.string = "test"

End Sub