【VBA】シート名の一覧を取得【シートをループしてNameを使う】

参考元：【VBA】シート名の一覧を取得【シートをループしてNameを使う】
https://daitaideit.com/vba-sheet-get-list/
　
シート名の一覧を取得

Sub TEST1()
  
  'シート一覧を取得
  For i = 1 To Sheets.Count
    Debug.Print Sheets(i).Name
  Next
  
End Sub

　
「For Each」でループしてシート名を取得

Sub TEST2()
  
  Dim A
  'シート一覧を取得
  For Each A In Sheets
    Debug.Print A.Name
  Next
  
End Sub

　
シート名の一覧を配列に入力

Sub TEST3()
  
  Dim A
  'シート数分の配列を作成
  ReDim A(1 To Sheets.Count)
  
  'シート一覧を配列に格納
  For i = 1 To Sheets.Count
    A(i) = Sheets(i).Name
  Next
  
End Sub

　

新規シートを追加してシート名を入力

Sub TEST4()
  
  Dim A
  'シート数分だけ配列を作成
  ReDim A(1 To Sheets.Count)
  
  'シート一覧を配列に格納
  For i = 1 To Sheets.Count
    A(i) = Sheets(i).Name
  Next
  
  'シートを作成
  Sheets.Add before:=Sheets(1)
  ActiveSheet.Name = "シート一覧" 'シート名を変更
  '追加したシートに、シート一覧を入力
  Range("A1").Resize(UBound(A)) = WorksheetFunction.Transpose(A)
  
End Sub