如何建立工作簿中表的链接？

【问题】
　　如何将工作薄中的全部工作表都在sheet1中建上链接？
　　【解答】
　　代码：
　　Dim Pt As Range
　　Dim i As Integer
　　With Sheet1
　　Set Pt = .Range("a1")
　　For i = 2 To ThisWorkbook.Worksheets.Count
　　.Hyperlinks.Add Anchor:=Pt‚ Address:=""‚ SubAddress:=Worksheets(i).Name & "!A1"
　　Set Pt = Pt.Offset(1‚ 0)
　　Next i
　　End With
　　End Sub