VBA学習ツール無料配布！#25 テーマ:vbaでシート名を取得しよう！

Option Explicit

Sub correctAnswerExample()
    Dim ws As Worksheet
    Dim writeSheet As Worksheet
    Dim tableListObj As ListObject
    Dim newRow As ListRow
    Dim sheetName As String
    ' 書き込みシートを設定
    Set writeSheet = ThisWorkbook.Sheets("書き込みシート")
    ' テーブルを設定
    Set tableListObj = writeSheet.ListObjects("シート名テーブル")
    ' テーブルの既存の行をクリアする
    If tableListObj.ListRows.Count > 0 Then
        tableListObj.DataBodyRange.Delete
    End If
    ' 全シートの名前をテーブルに追加
    For Each ws In ThisWorkbook.Sheets
        Set newRow = tableListObj.ListRows.Add
        newRow.Range(1, 1).Value = ws.Name
    Next ws
    ' 書き込みシートをアクティベート
    writeSheet.Activate
    ' 実行完了メッセージを表示
    MsgBox "実行完了"
End Sub