FUNCTION _ExcelSavePasteSpecial LPARAMETERS tcOriginal, tcSaveAs, tcSheet #DEFINE xlPasteValues -4163 oExcel = CREATEOBJECT('excel.application') WITH oExcel .WorkBooks.Open(tcOriginal) .ActiveWorkbook.WorkSheets(tcSheet).Cells.Select .Selection.Copy .ActiveWorkbook.Saved = .t. .WorkBooks.Add .Selection.PasteSpecial(xlPasteValues) WITH .ActiveWorkbook.ActiveSheet .Name = lcSheet .Range("A1").Select .SaveAs(tcSaveAs) ENDWITH .Quit() ENDWITHI'm still learning using Excel VBA help file. Whenever I can't determine how to do something I record a macro, copy-paste macro code to VFP and retouch to fit VFP calling scheme. I think these should be covered well enough in the book.