FUNCTION format_xls() PARAMETERS lcFileSave oExcel = CREATEOBJECT("Excel.Application") oExcel.DisplayAlerts = .F. oWorkbook = GETOBJECT(lcFileSave) oWorkbook.WINDOWS[1].ACTIVATE() oSheet=oWorkbook.activesheet ** format row/cols oWorkbook.activesheet.ROWS[1].FONT.bold=.T. ** autofit columns- 30=arbitrary FOR I = 1 TO 30 WITH oWorkbook.activesheet.COLUMNS[i] .AUTOFIT() .COLUMNWIDTH =.COLUMNWIDTH + 1 ENDWITH ENDFOR oSheet.RANGE("A2").SELECT oWorkbook.WINDOWS[1].FreezePanes=.T. oSheet.RANGE("A1:T1").AutoFilter oWorkbook.SaveAs(lcFileSave,-4143) &&Re-save file as current excel version, else truncates results>16,000 odd oWorkbook.CLOSE() ** quit and release oExcel.QUIT() RELEASE ALL LIKE o*This works fine when lcFileSave is in the format "F:\HOME\filename.xls". However if the paramater is of the construct "\\servername\volume\directory\filename.xls" we encouter OLE dipatch errors.