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