Excelで目次を作るマクロ

エクセルってシートがたくさんになってしまうことしばしばですね。
そういう場合には、目次を作ってクリックして目的のシートに移動できたら便利です。
結構良く使うマクロなのでメモ。
Sub 目次作成マクロ()
Sheets(“目次”).Select
Dim wsheet As Worksheet
Dim i As Integer
i = 5
For Each wsheet In ThisWorkbook.Worksheets
If wsheet.Name <> “目次” Then
Sheets(“目次”).Cells(i, 3).Select
Sheets(“目次”).Cells(i, 3).Value = wsheet.Name
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=””, SubAddress:= _
“‘” & wsheet.Name & “‘” & “!A1”, TextToDisplay:=wsheet.Name
i = i + 1
End If
Next wsheet
End Sub