lcXLS = 'c:\myPath\test.xls' oExcel = createobject('Excel.Application') with oExcel .Workbooks.Open(lcXLS) With .ActiveSheet WITH .Range('A1').Font lnOneChar = TXTWIDTH('0',.Name,.Size) * FONTMETRIC(6,.Name,.Size) lnChars = lnOneChar * 96/120 EndWith lnCurHeight = .Range('1:1').RowHeight .Cells.ColumnWidth = lnChars .Cells.RowHeight = lnCurHeight * 96/120 Endwith .Visible = .t. endwithCheck if printing this outputs correct area.