EXCEL中，如果用VBA实现对所有工作表建立超链接

首先要在此工作簿中，建立一个名叫“首页”的工作表，然后执行下面代码即可。
Sub 链接()
Sheets("首页").Select
'显示所有工作表
For i = 1 To Sheets.Count
Cells(i, 1).Value = Sheets(i).Name
Next
'超链接
For i = 1 To Sheets.Count
t = Cells(i, 1)
Cells(i, 1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=t & "!A1", ScreenTip:="进入", TextToDisplay:=t
Next
End Sub