查找工作部内的所有工作表

Sub Sheet()
For k = 1 To Sheets.Count
Cells(k, 1) = Sheets(k).Name
Next
End Sub