Sub Test()
Dim wb As Workbook
Set wb = Workbooks.Add(xlWBATWorksheet)
Set sht = wb.Worksheets("Sheet1")
wb.Close SaveChanges:=False
Sub
Sub Test()
Dim wb As Workbook
Set wb = Workbooks.Add(xlWBATWorksheet)
Set sht = wb.Worksheets("Sheet1")
wb.Close SaveChanges:=False
Sub