VBA提取Excel工作表名称

怎样将Excel所有工作表名称提取出来，便于以后修改、删除工作表？VBA代码能快速处理。

1、同一工作薄内所有工作表名称，提取到指定工作表的指定位置（如工作表“Sheet1”A列），代码如下：

  Dim SheetsName As Integer

  For SheetsName = 1 To Worksheets.Count

    Sheets("Sheet1").Cells(SheetsName, 1).Value = Worksheets(SheetsName).Name

Next

2、同一工作薄内所有工作表名称提取到新建工作表内，如新建工作表名称“目录”。应先判断有无名为“目录”工作表，并将新建工作表放在指定位置，如所有的工作表最后面、最前面、某个工作表前或后、所有工作表序列几号的位置等。代码如下：

  Dim SheetActive As Worksheet

  Dim NewSheet As Worksheet

  Dim Sheet As Worksheet

  Dim SheetsNumb As Integer

  Dim ActiveSheet As Worksheet

  Dim ActiveSheetsName As