Simple Example 01

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

Sub Main

    Dim oWrkBk    as Object
    Dim oSelRng   as Object

    oWrkBk   = ThisComponent

    oSelRng  = oWrkBk.getCurrentSelection().getRangeAddress()

    With oSelRng
        MsgBox "ROW RANGE IS " & .StartRow    & " - " & .EndRow
        MsgBox "COL RANGE IS " & .StartColumn & " - " & .EndColumn
    End With

End Sub