' 'ワークブック内のシートの一覧を作成し、 '各シートへのハイパーリンクを設定する ' 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).Valu