local lcXLSFile,lcTemp lcXLSFile = GETFILE() && allow user to find file hard code if you know where it is #define xlRangeAutoFormatColor2 8 oExcel = createobject("Excel.Application") createobject(oExcel[, Excel, Winword , Html , Xml].Application) with oExcel .WorkBooks.Open(m.lcXLSFile) .Visible = .T. endwiththanks.