IF FILE( "mySheet.xlsx" ) ERASE( "mySheet.xlsx" ) ENDIF WITH This.oExcel .Cells.Select && Select the entire worksheet .Selection.Columns.AutoFit && AutoFit columns to whatever width is required .ActiveWorkBook.SaveAs( "mySheet.xlsx") && Save the worksheet as default for Excel 2007 .Quit() && shutdown Excel RELEASE oExcel && Release the Excel.Application object ENDWITH>Hi friends: