Sub シート一覧作成() Dim wsht As Worksheet, i As IntegerFor Each wsht In Worksheets i = i + 1 Range("A" & i).Value = wsht.NameNext wsht End Sub