excel中怎样把每个工作表批量添加超链接

Sub AutoGenerateHyperlinks()
Dim nIndex As Integer
Dim oRange As Range
For nIndex = 2 To Sheets.Count
Set oRange = Cells(Selection.Row + nIndex - 2, Selection.Column)
oRange.Hyperlinks.Add Anchor:=oRange, Address:="", SubAddress:="'" & Sheets(nIndex).Name & "'!A1", TextToDisplay:=Sheets(nIndex).Name
Next
End Sub

在SubAddress:="'" & Sheets(nIndex).Name & "'!A1" 前后填各添加单引号就可以了，以前我弄过，具体原因不知道，但是添加之后就没问题了，你看看吧！

Sub LINK()
Dim I%
Sheet1.Activate
[A1].CurrentRegion.Clear
For I = 2 To Worksheets.Count
ActiveSheet.Hyperlinks.Add Anchor:=Cells(I, 1), Address:="", _
SubAddress:=Worksheets(I).Name & "!A1", TextToDisplay:=Worksheets(I).Name
Next
End Sub
人家那个不行吗？？