for each…..next

Sub Macro0427()
Dim s As Worksheet
For Each s In ActiveWorkbook.Worksheets
s.Name = “2010年” & s.Index & “月”
Next s
End Sub