XL_File = CurrentProject.Path & "\InputData.xlsx"
Set MyXL = New Excel.Application
MyXL.Workbooks.Add
MyXL.Application.DisplayAlerts = False
MyXL.Application.Visible = False
MyXL.Worksheets(1).Name = "Testout"
MyXL.Worksheets.Add(After:=MyXL.Worksheets(1)).Name = "EchimpInventory"
MyXL.Worksheets.Add(After:=MyXL.Worksheets(2)).Name = "abendcode"
MyXL.Worksheets.Add(After:=MyXL.Worksheets(3)).Name = "jobabend"
MyXL.Worksheets.Add(After:=MyXL.Worksheets(4)).Name = "SCHEDULEDURATION"
MyXL.Worksheets.Add(After:=MyXL.Worksheets(5)).Name = "jobschedule"
MyXL.Worksheets.Add(After:=MyXL.Worksheets(6)).Name = "Echimpformatted"
MyXL.Worksheets.Add(After:=MyXL.Worksheets(7)).Name = "Jobschedtmp"
MyXL.Workbook.SaveAs (XL_File)
---- this line is highlighted at the time of error.
Bookmarks