Add,Count,Rename and delete a sheet of an Excel using vbscript

Excel - Vbscript

'Add a New worksheet into an existing excel

Set ObjExcel= createobject("Excel.Application")
Set ObjWorkBk=ObjExcel.Workbooks.Open("D:\Pulkit.xls")
ObjExcel.Visible = True
ObjExcel.DisplayAlerts = False
Set ObjWorkSht=ObjWorkBk.Sheets.add

'Count the sheets

Set ObjExcel= createobject("Excel.Application")
Set ObjWorkBk=ObjExcel.Workbooks.Open("D:\Pulkit.xls")
ObjExcel.Visible = True
ObjExcel.DisplayAlerts = False 
Msgbox "Total " & ObjWorkSht=ObjWorkBk.Sheets.count &" WorkSheets are present in the excel."

'Rename all the Sheet present in the excel

 Set ObjExcel= createobject("Excel.Application")
Set ObjWorkBk=ObjExcel.Workbooks.Open("D:\Pulkit.xls")
ObjExcel.Visible = True
ObjExcel.DisplayAlerts = False

for i = 1 to  ObjWorkBk.Sheets.count
ObjWorkBk.Sheets(i).Name = "Blogger"&i
Next

'Delete all worksheets

Set ObjExcel= createobject("Excel.Application")
Set ObjWorkBk=ObjExcel.Workbooks.Open("D:\Pulkit.xls")
ObjExcel.Visible = True
ObjExcel.DisplayAlerts = False

for i = 1 to  ObjWorkBk.Sheets.count
ObjWorkBk.Sheets(i).delete
Next