1、说明：一个工作薄有很多工作表——有一个索引表，要把各个工作表名称填写到A列中。
2、插入——艺术字，选择红色白边的艺术字类型，输入：提取工作表名——绘图工具——格式，选择蓝色的强烈效果5。
3、开发工具——Visual Basic——插入——模块——输入：
Sub 提取表名()
For x = 2 To Sheets.Count
Cells(x, 1) = Sheets(x).Name
Next x
End Sub
4、右击刚刚的艺术字文本框——指定宏——选择“提取表名”——确定。
5、右击单元格的工作表名——超链接——本文档中的位置——选择相应的工作表——确定。
