Excel VBA ブック内シート一覧を作成する

エクセルにたくさんのシートが増えてきたとき目次を簡単に作成できるので便利です。ハイパーリンク付きはこちらです。

Sub シート一覧作成()
Const ssn As Long = 1       '一覧表示を開始するシートNo
Const xsp As String = "B"   '出力するセル位置 X軸
Const ysp As Long = 6       '出力するセル位置 Y軸

Dim csp As Long
Dim ycp As Long

csp = ssn
i = si

ycp = ysp
While csp <= Sheets.Count
Range(xsp & ycp).Value = Worksheets(csp).Name
ycp = ycp + 1
csp = csp + 1
Wend
End Sub

VBAの動作方法がわからない方はこちら参考にしてください