excel中如何批量设置超级链接？

Question

如我有6张表，sheet1是目录，sheet2到sheet6的名称是sheet1第一列的单元格内容。
我怎么让sheet2到sheet6与sheet1对应的单元格内容建立起超级链接？
简言之，如下所示的宏，需要一个循环公式，我不会，麻烦各位大侠赐教！
Sub Macro6()
'
' Macro6 Macro
'

'
Range("A2").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"'Q-0005638139.001000'!A1", TextToDisplay:="Q-0005638139.001000"
Range("A3").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
"'Q-0005638135.001000'!A1", TextToDisplay:="Q-0005638135.001000"
End Sub
不要复制粘贴，百度知道我也会搜。谢谢！

Answer 1

Excel小技巧

Answer 2

一个工作薄中有许多工作表如何快速整理出一个目录工作表,方法如下:
1、用宏3.0取出各工作表的名称，方法：
Ctrl+F3出现自定义名称对话框，取名为X，在“引用位置”框中输入：
=MID(GET.WORKBOOK(1),FIND("]",GET.WORKBOOK(1))+1,100)
点"确定 "。

2、用HYPERLINK函数批量插入连接，方法：
在目录工作表（一般为第一个sheet）的A2单元格输入公式：
=HYPERLINK("#'"&INDEX(X,ROW())&"'!A1",INDEX(X,ROW()))
将公式向下填充，直到出错为止，目录就生成了。

Answer 3

《HYPERLINK函数经典用法》这个帖子里有你要的效果：
http://hi.baidu.com/gouweicao78/blog/item/f2117ea5e1c88ae39152ee39.html