Sub Maco1()

For i = 1 To Sheets.Count

Cells(i, 1) = Sheets(i).Name

Next

End Sub

有的excel禁用宏：