【Excel VBA】シートの一覧（ハイパーリンク付き）を作るマクロ

copy

Private Const SHEETNAME_ITIRAN = "一覧"

' 一覧シートを作成する（こちらのマクロを実行します）
Sub MakeItiran()
    
    ' "一覧"シートがある場合にはいったん削除する
    Call DeleteItiranSheet
    
    ' 1シート目に"一覧"シートを作成する
    Worksheets.Add Before:=Worksheets(1)
    ActiveSheet.Name = SHEETNAME_ITIRAN
    
    ' 一覧を作成する、テキスト：シート名、ハイパーリンク：各シートのA1セル
    ' 1シート目には"一覧"シートがあるため、2シート目から処理をする
    Dim sheetCount As Integer
    For sheetCount = 2 To Worksheets.Count
    
        Worksheets(SHEETNAME_ITIRAN).Hyperlinks.Add Anchor:= _
            Range("B" & sheetCount), _
            Address:="", _
            SubAddress:=Worksheets(sheetCount).Name & "!A1", _
            TextToDisplay:=Worksheets(sheetCount).Name
            
        Range("A" & sheetCount).Value = sheetCount - 1
        
    Next

End Sub

' 一覧シートを削除する
Sub DeleteItiranSheet()

    Dim ws As Worksheet
    For Each ws In Worksheets
    
        If ws.Name = SHEETNAME_ITIRAN Then
            
            ' "削除しますか？"の確認メッセージを非表示にする
            Application.DisplayAlerts = False
            
            ' "一覧"シートを削除する
            Worksheets(SHEETNAME_ITIRAN).Delete
            
            ' メッセージを表示する設定に戻す
            Application.DisplayAlerts = True
            
            ' 削除したら処理を終了する
            Exit Sub
            
        End If
    
    Next ws

End Sub