Ｅｘｃｅｌのシート名一覧の作り方が知りたいです。簡単な方法があったら教えてください。

■VBAでシート名を自動取得します

①「Alt」＋「F11」キーで「VBE」の画面を表示
②「Alt」キーを押したまま「I」キー⇒「M」キーの順に押下して「標準モジュール」を挿入、白い画面が表示されます

↓VBAに記載する内容↓

Sub シート名取得()
Dim i As Long
For i = 1 To Sheets.Count
Range("A" & i).Value = Worksheets(i).Name
Next i
End Sub

上記を標準モジュール内に貼り付けます。

③マクロ実行ボタンを作ります
※マクロ実行ボタンは無くてもVBAは動作しますが、繰り返し使う場合はボタンがあると使いやすいです

■やり方
メニューの挿入をクリック
→図形を選択
→マクロ実行ボタンにしたい好きな図形を選択（四角い図形がおすすめ）
→図形を描く
→図形を右クリック
→テキストの編集を選択、ボタンに付けたい名前を入力（マクロ名と別でOK、名前は無くてもOK）、入力後はどこかのセルをクリックすると入力終了になります
→再度、図形を右クリック
→マクロの登録をクリック
→マクロ名 シート名取得 を選択して、OKを押下
→図形をクリックするとマクロが動作します

④結果
マクロ実行ボタンをクリックすると、
A1セルから縦に全シート名が表示されます。