求解

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:="进入", TextToDisplay:=t

Next

End Sub  这里面最后3行和4行错了谁能纠正一下