【VBA】シート名一覧を取得する

アクティブなシートにシート名一覧を作成。

セル(2,2)から順々にシート名入れていく。

Sub シート名一覧化()
  Dim wb1 As Workbook, ws1 As Worksheet, i, cnt As Long
  Set wb1 = ThisWorkbook
  Set ws1 = wb1.Worksheets(ActiveSheet.Name)
 
  cnt = 2
  For i = 1 To Sheets.Count
    ws1.Cells(cnt, 2) = Sheets(i).Name
    cnt = cnt + 1
  Next i

  Set wb1 = Nothing
  Set ws1 = Nothing
End Sub

任意のシートに出力したければ

  Set ws1 = wb1.Worksheets("任意のシート名")