Sub makeSheetsContent()'シート目次を作る Dim arr As Variant Dim ws As Worksheet Dim rng As Range Dim buf As String Dim i As Integer Dim wsNum As Integer Call appSet wsNum = Worksheets.Count 'シートの数。見出しも作成するために1加えておく Re…

Sub TEST() Dim WsName(1 To 3) As Variant Dim flag As Long Dim i As Long WsName(1) = "Sheet3" WsName(2) = "Sheet8" WsName(3) = "Sheet6" Dim WS As Worksheet For Each WS In Worksheets flag = 0 For i = 1 To 3 If WS.Name = WsName(i) Then flag =…