const nbNamedRanges = 15000

Sub Main

    doc = stardesktop.loadComponentFromUrl("private:factory/scalc","_blank",0,array())
    doc.sheets.insertNewByName("namedRanges",0)

    ' create namedRanges
    sheet = doc.sheets.getByName("namedRanges")
    for r=0 to nbNamedRanges
        cell = sheet.getCellByPosition(0,r)
        cell.string = "name_"+cStr(r)
    next r
    range = sheet.getCellRangeByPosition(0,0,1,nbNamedRanges)
    doc.namedRanges.addNewFromTitles(range.rangeAddress, com.sun.star.sheet.Border.LEFT)

    ' read each named range and associate value
    for r=0 to nbNamedRanges
        namedRange = doc.namedRanges(r)
        cell = namedRange.referredCells
        cell.string = "value_"+cStr(r)
    next r

    'now read cells individually
    for r=0 to nbNamedRanges
        cell = sheet.getCellByPosition(1,r)
        aValue = cell.string
    next r

End Sub