VBScript Deleting Sheets in Excel

It works well in very large excels.

Set xlapp = CreateObject("Excel.Application")
xlapp.Visible = False
xlapp.DisplayAlerts = False
set x = xlapp.Workbooks.Open("C:\Robusta\aaaa\aaaa\aaaa.xlsx") 
x.Worksheets("Sheet1").Delete
x.Save
x.Close