' [049.xls]



' [Module1] のコード
'★★☆　年間用に12枚のシートを挿入する　☆★★

Option Explicit

Sub start()
Dim i As Integer

    'シートが1枚以上あれば何もしない
    If ThisWorkbook.Worksheets.Count > 1 Then Exit Sub
    
    'シート(解説)の後へ12枚のシートを12月度から順に挿入
    For i = 12 To 1 Step -1
        
        '位置を指定してシートを挿入します
        Worksheets.Add.Move after:=Sheets("Title")
        
        'シートの名前とセルに月名を書き込みます
        ActiveSheet.Name = i & "月度"
        [A1] = i & "月度"
        
    Next i
    
End Sub