' 'ワークブック内のシートの一覧を作成し、 '各シートへのハイパーリンクを設定する ' 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
![Excelシート一覧作成マクロ - 流れる石のように](https://cdn-ak-scissors.b.st-hatena.com/image/square/df3a50c14b465108d37d0f484920317dd74971fb/height=288;version=1;width=512/http%3A%2F%2Fu.xgoo.jp%2Fimg%2Fsns%2Fblog.png)