シート名一覧を作成する方法 - Excel2013

Excel2013でシート名の一覧を作成する方法です。

リボンの［開発］－コントロールグループの［コードの表示］をクリックします。（開発タブ表示）

VBE画面が開くので下のコードをコピーしペーストします。

Sub MySheet()
For i = 1 To Sheets.Count
Cells(i, 1).Value = Worksheets(i).Name
Next i
End Sub

次にカーソルをペーストした先頭に移動し、上の［Sub/ユーザーフォームの実行（F5）」をクリックします。

すると、シートのA列にシート一覧が表示されます。