简单粗暴-提取sheet名称

话不多说，上代码

Sub vba获取工作表名称()
   For sheetname = 1 To Sheets.Count
       Cells(sheetname, 1) = Sheets(sheetname).Name
   Next sheetname
 End Sub