EXCELシート一覧取得 - tfcfuji @ ウィキ

EXCELですべてのシート名の一覧をマクロで作成するには下記のマクロをEXCELファイルに追加する

Sub シート一覧()
Dim i As Long

For i = 1 To Sheets.Count
Range("A" & i).Value = Worksheets(i).Name
Next i

End Sub