アクティブなシートにシート名一覧を作成。 セル(2,2)から順々にシート名入れていく。 Sub シート名一覧化() Dim wb1 As Workbook, ws1 As Worksheet, i, cnt As Long Set wb1 = ThisWorkbook Set ws1 = wb1.Worksheets(ActiveSheet.Name) cnt = 2 For i = 1 To Sheets.Count ws1.Cells(cnt, 2) = Sheets(i).Name cnt = cnt + 1 Next i Set wb1 = Nothing Set ws1 = Noth…