Excelシート一覧作成マクロ

'
'ワークブック内のシートの一覧を作成し、
'各シートへのハイパーリンクを設定する
'
Sub CreateHyperlinksGoSheet()

'シート一覧の取得
Dim colSheetNames As New Collection
Dim sheet As Worksheet
For Each sheet In ActiveWorkbook.Sheets
colSheetNames.Add sheet.name
Next
'ハイパーリンク用シート追加
Set sheet = ActiveWorkbook.Sheets.Add
sheet.name = "シート一覧"

'ハイパーリンク作成
Dim index As Long
Dim name
index = 1
For Each name In colSheetNames
sheet.Range("A" & index).Value = name
sheet.Range("A" & index).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
name & "!A1", TextToDisplay:=name
index = index + 1
Next

End Sub