Set XLApp = CreateObject("Excel.Application")
Set xlWB = XLApp.Workbooks.Add
Set xlWB = XLApp.Workbooks.Open(App.Path & "\data.xls") 'Open an existing workbook
Set XLSh = xlWB.Sheets("sheet1")
XLApp.AlertBeforeOverwriting = False
XLApp.DisplayAlerts = False
XLApp.ActiveWorkbook.Save
المشكلة تحدث اذا انتقلت الى اى sheet آخر ثم العودة مرة اخرى الى sheet1