シート目次作成(目次シート→各シート、各シート→目次シートへのハイパーリンク）

Sub 目次作成()
    Dim ws目次 As Worksheet: Set ws目次 = Thisworkbook.Sheets("目次")
    ws目次.Range("A:A").ClearContents
    
    Dim i As Integer
    For i = 1 To ThisWorkbook.Sheets.Count
        '目次シート作成
        With ws目次
            .Hyperlinks.Add Anchor:=.Range("A" & i), _
                    Address:="", _
                    SubAddress:=ThisWorkbook.Sheets(i).Name & "!A1", _
                    TextToDisplay:=ThisWorkbook.Sheets(i).Name
        End With
        
        '各シート→目次シートリンク作成
        With ThisWorkbook.Sheets(i)
            .Hyperlinks.Add Anchor:=.Range("I1"), _
                    Address:="", _
                    SubAddress:=ws目次.Name & "!A" & i, _
                    TextToDisplay:=ws目次.Name & "へ"
        End With
    Next
End Sub