*--This is just for this example - *--I used a table named insured to create a spreadsheet named insuredtest.xls USE INSURED COPY NEXT 200 to C:\insuredtest.xls TYPE XLS USE IN INSURED loExcel = Createobject('Excel.Application') loExcel.workbooks.Open('C:\insuredtest.xls') && open my test spreadsheet loExcel.Visible = .T. With loExcel.ActiveWorkbook.ActiveSheet .UsedRange.RowHeight = 20 Endwith *--Freezepane loExcel.windows.item(1).freezepanes = .T. && freezepanes