>*!* Code
>
>lcFile="PICK01101.XLS"
>
>*!* Autosizing of columns added by Neil Sykes - 11/01/2001
>oleExcelPicklist = GETOBJECT(SYS(5)+SYS(2003)+"\"+LCFILE)
>
>oleExcelPicklist.Cells.Select *!* Crashing here
>oleExcelPicklist.Selection.AutoFit

Oh I never have been succesfull using getobject like that. Here is how I do it :

*1)
oleExcelPicklist = CreateOBJECT('Excel.Application')
with oleExcelPicklist
 .Workbooks.Open(SYS(5)+SYS(2003)+"\"+LCFILE)
 .Activeworkbook.ActiveSheet.Cells.Select   *!* Crashing here
 .Selection.AutoFit
 .visible = .t.
endwith

*2)
oleExcelPicklist = CreateOBJECT('Excel.Application')
with oleExcelPicklist
 .Workbooks.Open(SYS(5)+SYS(2003)+"\"+LCFILE)
 .Activeworkbook.ActiveSheet.UsedRange.Select
 .Selection.AutoFit
 .visible = .t.
endwith

*3)
oleExcelPicklist = CreateOBJECT('Excel.Application')
with oleExcelPicklist
 .Workbooks.Open(SYS(5)+SYS(2003)+"\"+LCFILE)
 .Activeworkbook.ActiveSheet.UsedRange.Columns.AutoFit
 .visible = .t.
endwith

*...

Cetin