Solved
Set Excel = Sys.OleObject("Excel.Application")
set temp = Excel.Workbooks.Open("pathToYourWorkbook")
call temp.sheets.add()
temp.activesheet.name = "This is my new worksheet"
call temp.save
Set Excel = Sys.OleObject("Excel.Application")
set temp = Excel.Workbooks.Open("pathToYourWorkbook")
call temp.sheets.add()
temp.activesheet.name = "This is my new worksheet"
call temp.save