Excel VBA将所有Sheet重命名为单元格a1的名称

Sub RenameSheet()
Dim i As Integer
For i = 1 To Sheets.Count
	Sheets(i).Name = Sheets(i).Range("A1").Value
Next
End Sub