>Hi all,
>
>This works:
>
>1. lCell=oExcel.ActiveSheet.Range("A1").SpecialCells(11).Address(.F.,.F.,1)
>2. area = "A1:"+lCell
>3. oRange=oExcel.RANGE("&area").Select
>4. oExcel.Selection.Font.Size = 10
>
>but how should I make 4. without prior 3 statements ?
>
>TIA, gojko
lcXLS = FullPath("formattest.xls")
USE customer
Copy To (m.lcXLS) type xls
oExcel = CreateObject("Excel.Application")
With oExcel
.Workbooks.Open(m.lcXLS)
.Visible = .T.
.ActiveWorkbook.ActiveSheet.UsedRange.Font.Size = 14
.ActiveWorkbook.ActiveSheet.UsedRange.Columns.Autofit
endwithCetin
