Sub 全シート名取得する()

    行 = 1 '開始行を設定
    
    For Each シート In Worksheets
    
        Cells(行, "A") = シート.Name 'A列にシート名を記入
        
        行 = 行 + 1 '次の行にいく
        
    Next

End Sub