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

 

Sub Main

 

    Dim oWrkBk    as Object

    Dim oRng      as Object

    Dim dArray(2,2)

   

    oWrkBk   = ThisComponent

   

    dArray(0, 0)   =   "Square 1"

    dArray(0, 1)   =   "Square 2"

    dArray(0, 2)   =   "Square 3"

   

    dArray(1, 0)   =   "Square 11"

    dArray(1, 1)   =   "Square 12"

    dArray(1, 2)   =   "Square 13" 

   

    dArray(2, 0)   =   "Square 21"

    dArray(2, 1)   =   "Square 22"

    dArray(2, 2)   =   "Square 23"

   

       

    oRng = oWrkBk.Sheets(0).getCellRangeByName("C2:E4")

   

    oRng.setDataArray(dArray)

 

End Sub