怎么批量转换文件名在excel

Sub aa()For i = 1 To Sheets.Count Sheets(i).Name = Sheets(i).[a1].ValueNextEnd Sub