Dim cpApp As Excel.Application
Set cpApp = CreateObject("Excel.Application")
cpApp.Visible = False
Set wkb = cpApp.Workbooks.Open(sDir + "Output_Plan.xls")
Set cpApp = CreateObject("Excel.Application")
cpApp.Visible = False
Set wkb = cpApp.Workbooks.Open(sDir + "Output_Plan.xls")