Sub ChangeSheetName()
 ActiveSheet.Name = "NewSheetName"
End Sub