Excel VisualBasic Script

Sub changeName()
    ActiveSheet.name = "My Sheet"
End Sub