メモ

Sub ee()
For i = 1 To Sheets.Count
Sheets(i).Name = "大好き" & i
Next i
ActiveWorkbook.Save
Sub End