Excel VisualBasic Script

Sub changeValue()
    Application.Workbooks(1).Worksheets(1).name = "My Sheet"
End Sub