各位大神，excel中的工作表如何修改默认名称？

Sub 工作表添加修改名字()
Dim wbt As Worksheet, i As Integer
For i = 1 To Worksheets.Count
Set wbt = Worksheets(i)
wbt.name = i
Next
Worksheets.Add after:=Worksheets(Worksheets.Count)
Set wbt = Worksheets(Worksheets.Count)
wbt.name = Worksheets.Count
Set wbt = Worksheets(1)
wbt.Activate
End Sub