エクセルで目次を作成するマクロ

Sub mokujisakusei()

Dim i
For i = 1 To Worksheets.Count
  ActiveSheet.Hyperlinks.Add Anchor:=Range("a" & i), _
  Address:="", _
  SubAddress:=Worksheets(i).Name & "!A1", _
  TextToDisplay:=Worksheets(i).Name
Next

End Sub