Dim ExcelApp
Dim ExcelBook
Dim ExcelSheet

Set excelApp = CreateObject("Excel.Application")
Set ExcelBook = excelApp.Workbooks.Open("d:\cc.xls")
excelApp.DisplayAlerts = False
Set Excelsheet = ExcelBook.Worksheets("s1")
ExcelBook.Sheets.Add
ExcelBook.ActiveSheet.name = "ssss127"
ExcelBook.Save
ExcelApp.Workbooks.Close
ExcelApp.Quit
Set ExcelApp = Nothing