oExcel=CREATEOBJECT("Excel.Application") With oExcel .DisplayAlerts= .F. Nothing=0 .WorkBooks.Open(cWorkAreaDir+"Excel_"+cFHJulian+".Xls",0) .Sheets("AFO").Select() ... IF .range("C"+ALLTRIM(str(Edcnt))).Value => 0 cSpreadsheetdate= DTOC(.range("A"+ALLTRIM(str(Edcnt))).Value) nSpreadsheetrow= Edcnt ... ENDIF ... .Sheets(ALLTRIM(Charttabs.Tab)).Select() gLogMESS= " "+ ALLTRIM(ChartTabs.Tab) Do WriteLog ... .Save .Quit EndWith Release oExcel and PROCEDURE ProvideDesc ... .Range("C1").Select() cDescription= ALLTRIM(IIF(ISNULL(.Range("C1").Value)," ",AllTrim(TRANSFORM(.Range("C1").Value))))+" " .Range("C2").Select() cDescription= cDescription+ ALLTRIM(IIF(ISNULL(.Range("C2").Value)," ",AllTrim(TRANSFORM(.Range("C2").Value))))+" " .Range("C3").Select() cDescription= cDescription+ ALLTRIM(IIF(ISNULL(.Range("C3").Value)," ",AllTrim(TRANSFORM(.Range("C3").Value))))You really don't have to select the cell to retrieve from it.