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