一番上の入り口へ > excel > VBA コーディングライブラリ集 > 全てのシート名を取得してA1に書きこむマクロ

全てのシート名を取得してA1に書きこむマクロ

ブックのすべてのシート名を取得して A1セルに書き込みます。

シート1枚目の A1に上書いてしまうのはデメリットですが。
Sub すべてのシート名をA1に取得()

    Dim str As String
    
    str = ""
    
    For Each s In Worksheets
        str = str & vbLf & s.Name
    Next
    
    Sheets(1).Select
    Cells(1.1).Value = str

End Sub

おまけ:全てのシートで 左上にカーソルをあわせるマクロ

全てのシートで 左上(今開いているシートのカーソルのあるところ)に 全シートカーソルをあわせるマクロです。

左上は変えられます。
Sub すべてのシートでA1に設定()

    Dim nowSheet As String
    Dim row As Integer, col As Integer
    
    'すべてのシートでカーソル位置をこの位置に合わせる。
    row = Selection.row
    col = Selection.Column
    
    nowSheet = ActiveSheet.Name

    For Each s In Worksheets
        s.Select
        Cells(row, col).Select
    Next
    
    Worksheets(nowSheet).Activate

End Sub

類似リンク

選択範囲シート名にハイパーリンクを追加するマクロ

VBA マクロライブラリ集