Macro1

sub Macro1
    dim document   as Object
    dim dispatcher as Object
    dim st As String

    document   = ThisComponent.CurrentController.Frame
    dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
    dim args1(0) as new com.sun.star.beans.PropertyValue

    args1(0).Name = "ToPoint"
    args1(0).Value = "$A$1"
    dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())

    my_cell = ThisComponent.Sheets(0).getCellByPosition(0,0)
    st = my_cell.value + 1

    args1(0).Name = "StringName"
    args1(0).Value = st
    dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args1())
end sub