提取所有工作表的名字

大神：

Sub 遍历sheets下的所有对象()
For Each shs In Sheets
    k = k + 1
    Cells(k, 1) = shs.Name
Next
End Sub

我的：

Sub 提取所有工作表名()
Dim i
For i = 1 To Worksheets.Count
    Cells(i, "a") = Sheets(i).Name
Next i
End Sub