Set C = CreateObject("Excel.Application") Set D = C.Workbooks.Open("C:\Users\Admin\Desktop\test.xlsx") D.Worksheets("sheet1").Delete D.Close True Set C = Nothing