生産管理 年間シートを作ってみよう

'既に存在するシートを削除
Private Sub ExSheetDelete()
    Dim i As Integer
    Dim sy As String
    Dim sname As String
    Dim n As Integer

    '年
    sy = Range("C7")
    
    '警告メッセージの非表示
    Application.DisplayAlerts = False

    For n = 1 To 12
        sname = sy & "年" & n & "月"
        For i = 1 To Sheets.Count
            '同名のチェック
            If Sheets(i).Name = sname Then
                Sheets(sname).Delete
                Exit For
           End If
        Next
    Next
    Application.DisplayAlerts = True
End Sub