シート名の一覧を作成する
開いているブックの全シートを列挙した「シート名一覧」を"ContentsList"というシート名で一番左側に新規追加する。その際、各シートのA1セルへのブック内ハイパーリンクも設定する。(.Hyperlinks.Add部分)
' シート名の一覧を作成する Sub CreateSheetNameList() Dim shtSheet As Worksheet Dim shtContentsList As Worksheet Set shtContentsList = ActiveWorkbook.Worksheets.Add(ActiveWorkbook.Sheets(1)) shtContentsList.Name = "ContentsList" For Each shtSheet In ActiveWorkbook.Sheets With shtContentsList.Cells(shtSheet.Index, 1) .Value = shtSheet.Name Call .Hyperlinks.Add(shtContentsList.Cells(shtSheet.Index, 1), "", _ "'" & shtSheet.Name & "'!A1") End With Next End Sub