Change Excel Sheet Name

Set exc=createobject("excel.application")
Set bk=exc.workbooks.open("E:\sac2.xls")
Set sht=bk.worksheets(1)
sht.name="shtupdate"
bk.save
exc.quit