That's clever idea, Jos. Thanks

Sergey's solution does exactly what I want and the speed is great.



>Here is one option. It's might not be exactly what you are looking for but perhaps useful. It converts the array into a string and pastes it into the cell range required.
>
>

>CLEAR ALL
>DIMENSION saNames(5,2)
>saNames[1, 1] = "John"
>saNames[1, 2] = "Smith"
>saNames[2, 1] = "Tom"
>saNames[2, 2] = "Brown"
>saNames[3, 1] = "Sue"
>saNames[3, 2] = "Thomas"
>saNames[4, 1] = "Jane"
>saNames[4, 2] = "Jones"
>saNames[5, 1] = "Adam"
>saNames[5, 2] = "Johnson"
>oExcel = CREATEOBJECT("Excel.Application")
>oExcel.Visible = .T.
>oBook =  oExcel.Workbooks.Add()
>oBook.Sheets[1].Name = "Summary"
>
>WITH oExcel.ActiveSheet
>  .Range["A1"].Value = "First"
>  .Range["B1"].Value = "Last"
> * oRange = .Range["A2:B6"]   // Not required in this option
>ENDWITH
>
>* Convert the array into a tab delimited string. Each line ends in CR.
>tstr_to_paste = ""
>FOR I = 1 TO 5
>  tstr_to_paste = m.tstr_to_paste + saNames[I, 1] + CHR(9) + saNames[I, 2] + CHR(13)
>NEXT
>
>* Copy the string to paste to the clipoard
>_cliptext = tstr_to_paste
>
>* Select the starting cell for the paste operation
>oExcel.ActiveSheet.Range("A2").select
>
>* Paste the clipboard to Excel
>oExcel.ActiveSheet.Paste
>
>