如何批量替换同一工作簿中工作表名称

中午是大神出没的时间，不能错过

Sub re_name_wst()
Dim ws_name As String, new_name As String
Dim n As Integer, i As Integer
n = ThisWorkbook.Worksheets.Count
For i = 1 To n
ws_name = Worksheets(i).Name
new_name = Replace(ws_name, "2013", "2014")
Worksheets(i).Name = new_name
Next
End Sub

Sub test()
For Each i In Sheets
i.Name = Replace(i.Name, 2013, 2014)
Next
End Sub