怎样用VBA把同一工作薄各个工作表名提取到一列

1、说明：一个工作薄有很多工作表——有一个索引表，要把各个工作表名称填写到A列中。

2、插入——艺术字，选择红色白边的艺术字类蕞瞀洒疸型，输入：提取工作表名——绘图工具——格式，选择蓝色的强烈效果5。

3、开发工具——Visual Basic——插入——模块——输入：Su水瑞侮瑜b 提取表名()For x = 2 皈其拄攥To Sheets.Count Cells(x, 1) = Sheets(x).Name Next xEnd Sub

4、右击刚刚的艺术字文本框——指定宏——选择“提取表名”——确定。

5、右击单元格的工作表名——超链接——本文档中的位置——选择相应的工作表——确定。