Private Sub CommandButton2_Click()
'Unload UserForm1
Application.DisplayAlerts = False
For i = 1 To 12
If Cells(19 + i, 4) = "a" And Not Me.Controls("CheckBox" & i) Then
' On Error Resume Next
Sheets(CStr(Cells(19 + i, 1))).Delete
' On Error GoTo 0
Cells(19 + i, 1).ClearContents
Cells(19 + i, 4).ClearContents
Cells(19 + i, 7).ClearContents
End If
Next
Application.DisplayAlerts = False
UserForm_initialize
'UserForm1.Show
End Sub