關於如何用Excel VB 提取sheet名字

i = 1

For Each sSheet In Application.Sheets

Cells(i, 1).Value = sSheet.Name

i = i + 1

Next sSheet

End Sub