>>i only got around to trying this on friday but could not get it working. roughly below i have copied some of what i tried. i did all this in the command window which does not allow with to be used. the first 5 lines work ok but everything after that fails, i get told off by excel, telling me that range does not allow this.
>
>You haven't selected or stipulated a range AFAICS
>
>>

>>oleApp = CreateObject("Excel.Application")
>>OleApp.Visible = .T.
>>OleApp.WorkBooks.Add
>>lncounter = 3
>>OleApp.cells(lnCounter,3).value   = "ID"
>>Oleapp.Cells.HorizontalAlignment = -4107
>>Oleapp.Selection.HorizontalAlignment = -4107
>>OleApp.cells(lnCounter,3).HorizontalAlignment = -4107
>>

>
>Here's a sample of code that works on my app:
>
>

>#define xlCenter	-4108
>#define xlDown    -4121
>...
>With toExcel
>  .ActiveSheet.Rows("1:4").Select
>  .Selection.Insert( xlDown)
>  .Range("A1:S1").Select
>  With .Selection
>    .ClearContents
>    .Merge
>    .HorizontalAlignment 	= xlCenter
>    With .Font
>      .Name 		= "Arial"
>      .FontStyle		= "Bold"
>      .Size 		= 12
>    EndWith
>  EndWith
>
>  .Range("A2:S2").Select
>  With .Selection
>    .ClearContents
>    .Merge                              && merging the cells in the range
>    .HorizontalAlignment   = xlCenter
>  EndWith
>

>
>>on that other note, they did not let themselves down on saturday, is second place calling?

Can you add few missing lines before "with toExcel"?