IF '12' $ .VERSION && XL 2007 * Kevin Delaney's suggestion & Cetin Basoz suggestion .ActiveWorkbook.SAVEAS(m.tcDestination, 39) && xlExcel7 .ActiveWorkbook.Saved = .T. .ActiveWorkbook.CLOSE(0) ELSE .WorkBooks(1).SAVEAS(m.tcDestination) ENDIF .ScreenUpdating = .T. .DisplayAlerts = .T. ENDWITH CATCH TO loError lcError = Log_Error(m.loError) FINALLY IF VARTYPE(m.loExcel) = 'O' WITH loExcel .ScreenUpdating = .T. .DisplayAlerts = .T. .QUIT() ENDWITH ENDIF ENDTRY