>Fred,
>Try the following:
>

>oXLS = CREATEOBJECT("excel.application")
>
>oXLS.WorkBooks.Add()
>oSheet = oXLS.ActiveSheet
>
>*-- add some data
>FOR lnRow = 1 TO 100
>   FOR lnCol = 1 TO 5
>      oSheet.Cells(lnRow,lnCol).Value = "Cell(" + ALLTRIM(STR(lnRow))+","+ALLTRIM(STR(lnCol))+")"
>   ENDFOR &&* lnCol = 1 TO 5
>ENDFOR &&* lnRow = 1 TO 100
>
>*-- select the row below the split. In the following case, only
>*-- row 1 will be frozen.
>oSheet.Range("A2").Select  && Adjust
>oXls.ActiveWindow.FreezePanes = .T.
>
>oXLS.visible = .t.
>

>
>HTH
>>Does anyone know how to freeze a row (or range of rows) in an Excel Spread sheet from ole automation?
>>
>>Thanx


Forgot the Select. That's why I could not get it to work.

Thanx.