excel 取sheet名

Sub fz()

Dim i As Integer

For i = 1 To Sheets.Count   

　　Range("A" & i).Value = Sheets(i).Name

Next

End Sub