Question

excel中如何用VB在一张表中显示所有工作表名称

我想在第一张工作表中的某单元格显示所有后面如sheet2,sheet3等的名称。写了如下程序，但是不对，请帮忙修改下。谢谢
Sub 取单元格名称()
Dim a As String
Dim d As String
a = InputBox("请输入数量")
For x = 1 To a
d = Sheets(x).Name
Range("A1").Select
ActiveCell.FormulaR1C1 = d
Next
End Sub

Answer 1

Dim I As Integer
For I = 1 To Sheets.Count
Cells(2, I) = Sheets(I).Name
Next I