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

　　【问题】

　　如何将工作薄中的全部工作表都在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