VBScript Rename Sheet

You can change the name of a sheet in excel with the vbs below.

:arrow_down:

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = false
objExcel.displayalerts=false
Set objWorkbook = objExcel.Workbooks.open("C:\Users\Robusta_Project\drafts.xlsx")
Set objWorksheet1 = objWorkbook.Worksheets("")
objWorksheet1.Name = "Drafts234"
objWorkbook.save
objWorkbook.close
objExcel.Quit()
Set objWorksheet1 = Nothing
Set objWorkbook = Nothing
Set ObjExcel = Nothing
WScript.Quit