読者です 読者をやめる 読者になる 読者になる

Logic Delight

明日のワシは忘れてしまうから、コードにはコメントを書くのです。

シート名の一覧を作成する

開いているブックの全シートを列挙した「シート名一覧」を"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