シート一覧を出力

ExcelのBook内のシート一覧を出力するマクロ

Sub Macro一覧最新()
    'シート「一覧」に、各シートへのリンクを作成する
    '※予め、シート「一覧」を作成しておいてください
    '　(シート「一覧」は先頭にしておくこと！！)
    
    Dim i As Long       'シート用カウンタ

    '編集領域のクリア(A,B列のクリア)
    Sheets("一覧").Columns("A:A").ClearContents
    Sheets("一覧").Columns("B:B").ClearContents
    
    'Book上のシートを取得 (先頭のシートは除く)
    For i = 2 To Sheets.Count
        With Sheets("一覧")
            'シート名を編集
            .Cells(i, 1) = Sheets(i).Name
            '★シートの特定のセルの値を取得(不要ならコメントに)
            .Cells(i, 2) = Sheets(i).Cells(4, 28)
            
            'リンクの設定
            .Hyperlinks.Add Anchor:=.Cells(i, 1), _
            Address:="", _
            SubAddress:="'" & Sheets(i).Name & "'" & "!a1", _
            TextToDisplay:=.Cells(i, 1).Value
        End With
    Next i
        

End Sub

動作確認環境:Excel 2003