成果物はA1セルをアクティブにするご作法。作業中ではないですよ。の無言の表現。 forループを使ったシンプルな対処法です。シート数 to 1（-1ずつ）で１シートずつA1セルをアクティブにしましょう。 ここで注意なのがwindowの固定。A1セルをselectしただけ…

アクティブなシートにシート名一覧を作成。 セル(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…