在excel中自动加载索引页

Sub Macro2()
'
' Macro2 Macro
'

On Error Resume Next
       Worksheets.Add().Name = "index"
Sheets("index").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