PUBLIC loExcel AS "excel.application" LOCAL loWorkBook, loRange loExcel =CREATEOBJECT("Excel.Application") WITH loExcel loExcel.Workbooks.OPEN(lcDir) && open in directory .DisplayAlerts = .F. .VISIBLE = .T. .ActiveSheet.NAME = "First Sheet" && name it .Sheets.ADD && create it .Sheets("Sheet1").SELECT .Sheets("Sheet1").NAME = "Second Sheet" .RANGE("C8").SELECT .ActiveSheet.Paste && something copied from calling prog. ENDWITH SELECT &lcLoginTime && new set of items _VFP.DATATOCLIP(,,3) && copy to clip WITH loExcel .Sheets.ADD .Sheets("Sheet2").SELECT .Sheets("Sheet2").NAME = "Third sheet" .RANGE("C8").SELECT .ActiveSheet.Paste .COLUMNS("D:D").SELECT .ActiveWorkbook.SAVE() QUIT ENDWITH>Hi All