Sub 鏈接()

Sheets("目錄").Select '注意

'顯示所有工作表

For i = 1 To Sheets.Count

Cells(i + 1, 2).Value = Sheets(i).Name

Next

'超鏈接

For i = 1 To Sheets.Count

   t = Cells(i + 1, 2)

   Cells(i + 1, 2).Select

   ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _

 SubAddress:=t & "!A1", ScreenTip:="進(jìn)入", TextToDisplay:=t

Next

End Sub  這里面最后3行和4行錯(cuò)了誰能糾正一下