Работало работало.и перестало

Public arrFiles As Variant
Public arrSupCode As Variant
Const E102 = "E102"
Const E116 = "E116"
Const E118 = "E118"
Const E123 = "E123"
Const E125 = "E125"
Const E139 = "E139"
Const E144 = "E144"
Const E600 = "E600"
Const E601 = "E601"
 
Private Sub CommandButton1_Click()
 
ChDir ActiveWorkbook.Path
 
arrFiles = Application.GetOpenFilename("Excel Files (*.xls), *.xls", 2, "Please select a files for verification... MAX 10 files", , True)
On Error GoTo Exitsub
 
If Not IsArray(arrFiles) Then
        ' pressed Cancel
        MsgBox "Stopping because you did not select a file", vbExclamation, "Empty selection!"
    Exit Sub
    Else
    
   arrSupCode = arrFiles
   
   Application.DisplayAlerts = False
   
For i = 1 To UBound(arrFiles)
    If i > 10 Then
        a = MsgBox("Reached MAX number of files. All remaining files will be dropped. Only 10 files can be selected at a time!", vbExclamation, "Reached MAX number of files")
    Exit For
    End If
    
    Workbooks.Open Filename:=arrFiles(i)
    ListBox1.AddItem (ActiveWorkbook.Name)
    ListBox1.AddItem ("________________________________")
    UserForm2.Repaint
    
    Range("A1", ActiveCell.SpecialCells(xlLastCell)).Sort Key1:=Range("P1"), Order1:=xlAscending, Header:= _
            xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
            DataOption1:=xlSortNormal
            
   Dim C102, C116, C118, C123, C125, C139, C144, C600, C601 As Integer
   
   C102 = 0
   C116 = 0
   C118 = 0
   C123 = 0
   C125 = 0
   C139 = 0
   C144 = 0
   C600 = 0
   C601 = 0
   
   Dim lbl As Integer
   lbl = (i - 1) * 9
   arrSupCode(i) = Cells(2, 16)
   
    For j = 2 To ActiveCell.SpecialCells(xlLastCell).Row
    
        Select Case Cells(j, 16)
            Case E102
                C102 = C102 + 1
                Me.Controls("Label" & lbl + 1).Caption = C102
                Me.Controls("OptionButton" & lbl + 1).Enabled = True
            Case E116
                C116 = C116 + 1
                Me.Controls("Label" & lbl + 2).Caption = C116
                Me.Controls("OptionButton" & lbl + 2).Enabled = True
            Case E118
                C118 = C118 + 1
                Me.Controls("Label" & lbl + 3).Caption = C118
                Me.Controls("OptionButton" & lbl + 3).Enabled = True
            Case E123
                C123 = C123 + 1
                Me.Controls("Label" & lbl + 4).Caption = C123
                Me.Controls("OptionButton" & lbl + 4).Enabled = True
                
            Case E125
                C125 = C125 + 1
                Me.Controls("Label" & lbl + 5).Caption = C125
                Me.Controls("OptionButton" & lbl + 5).Enabled = True
            Case E139
                C139 = C139 + 1
                Me.Controls("Label" & lbl + 6).Caption = C139
                Me.Controls("OptionButton" & lbl + 6).Enabled = True
                
            Case E144
                C144 = C144 + 1
                Me.Controls("Label" & lbl + 7).Caption = C144
                Me.Controls("OptionButton" & lbl + 7).Enabled = True
            Case E600
                C600 = C600 + 1
                Me.Controls("Label" & lbl + 8).Caption = C600
                Me.Controls("OptionButton" & lbl + 8).Enabled = True
            Case E601
                C601 = C601 + 1
                Me.Controls("Label" & lbl + 9).Caption = C601
                Me.Controls("OptionButton" & lbl + 9).Enabled = True
            
            Case Else
                GoTo NXT_FILE
        End Select
 
    Next j
    
NXT_FILE:
    ActiveWindow.Close
    Label106.Caption = "Selected: " & UBound(arrFiles) & "  files, Processed: " & i & " files"
Next i
  Application.DisplayAlerts = True
 
 
CommandButton1.Enabled = False
CommandButton2.Enabled = True
Label104.Enabled = True
Label100.Enabled = False
 
 
 
End If
Exitsub:
 
If Error <> "" Then
MsgBox Error, vbCritical, "Error occurred!"
End If
End Sub
 
Private Sub CommandButton2_Click()
 
    Open_Split_Err_Join_saveXLS (Array(arrFiles, arrSupCode))
    
End Sub
 
 
'---------- 1 --------
Private Sub OptionButton1_Click()
arrSupCode(1) = E102
Label104.Enabled = False
Label105.Enabled = True
End Sub
Private Sub OptionButton2_Click()
arrSupCode(1) = E116
Label104.Enabled = False
Label105.Enabled = True
End Sub
Private Sub OptionButton3_Click()
arrSupCode(1) = E118
Label104.Enabled = False
Label105.Enabled = True
End Sub
Private Sub OptionButton4_Click()
arrSupCode(1) = E123
Label104.Enabled = False
Label105.Enabled = True
End Sub
Private Sub OptionButton5_Click()
arrSupCode(1) = E125
Label104.Enabled = False
Label105.Enabled = True
End Sub
Private Sub OptionButton6_Click()
arrSupCode(1) = E139
Label104.Enabled = False
Label105.Enabled = True
End Sub
Private Sub OptionButton7_Click()
arrSupCode(1) = E144
Label104.Enabled = False
Label105.Enabled = True
End Sub
Private Sub OptionButton8_Click()
arrSupCode(1) = E600
Label104.Enabled = False
Label105.Enabled = True
End Sub
Private Sub OptionButton9_Click()
arrSupCode(1) = E601
Label104.Enabled = False
Label105.Enabled = True
End Sub
 
'---------- 2 --------
Private Sub OptionButton10_Click()
arrSupCode(2) = E102
Label104.Enabled = False
Label105.Enabled = True
End Sub
Private Sub OptionButton11_Click()
arrSupCode(2) = E116
Label104.Enabled = False
Label105.Enabled = True
End Sub
Private Sub OptionButton12_Click()
arrSupCode(2) = E118
Label104.Enabled = False
Label105.Enabled = True
End Sub
Private Sub OptionButton13_Click()
arrSupCode(2) = E123
Label104.Enabled = False
Label105.Enabled = True
End Sub
Private Sub OptionButton14_Click()
arrSupCode(2) = E125
Label104.Enabled = False
Label105.Enabled = True
End Sub
Private Sub OptionButton15_Click()
arrSupCode(2) = E139
Label104.Enabled = False
Label105.Enabled = True
End Sub
Private Sub OptionButton16_Click()
arrSupCode(2) = E144
Label104.Enabled = False
Label105.Enabled = True
End Sub
Private Sub OptionButton17_Click()
arrSupCode(2) = E600
Label104.Enabled = False
Label105.Enabled = True
End Sub
Private Sub OptionButton18_Click()
arrSupCode(2) = E601
Label104.Enabled = False
Label105.Enabled = True
End Sub
'---------- 3 --------
Private Sub OptionButton19_Click()
arrSupCode(3) = E102
End Sub
Private Sub OptionButton20_Click()
arrSupCode(3) = E116
End Sub
Private Sub OptionButton21_Click()
arrSupCode(3) = E118
End Sub
Private Sub OptionButton22_Click()
arrSupCode(3) = E123
End Sub
Private Sub OptionButton23_Click()
arrSupCode(3) = E125
End Sub
Private Sub OptionButton24_Click()
arrSupCode(3) = E139
End Sub
Private Sub OptionButton25_Click()
arrSupCode(3) = E144
End Sub
Private Sub OptionButton26_Click()
arrSupCode(3) = E600
End Sub
Private Sub OptionButton27_Click()
arrSupCode(3) = E601
End Sub
'---------- 4 --------
Private Sub OptionButton28_Click()
arrSupCode(4) = E102
End Sub
Private Sub OptionButton29_Click()
arrSupCode(4) = E116
End Sub
Private Sub OptionButton30_Click()
arrSupCode(4) = E118
End Sub
Private Sub OptionButton31_Click()
arrSupCode(4) = E123
End Sub
Private Sub OptionButton32_Click()
arrSupCode(4) = E125
End Sub
Private Sub OptionButton33_Click()
arrSupCode(4) = E139
End Sub
Private Sub OptionButton34_Click()
arrSupCode(4) = E144
End Sub
Private Sub OptionButton35_Click()
arrSupCode(4) = E600
End Sub
Private Sub OptionButton36_Click()
arrSupCode(4) = E601
End Sub
'---------- 5 --------
Private Sub OptionButton37_Click()
arrSupCode(5) = E102
End Sub
Private Sub OptionButton38_Click()
arrSupCode(5) = E116
End Sub
Private Sub OptionButton39_Click()
arrSupCode(5) = E118
End Sub
Private Sub OptionButton40_Click()
arrSupCode(5) = E123
End Sub
Private Sub OptionButton41_Click()
arrSupCode(5) = E125
End Sub
Private Sub OptionButton42_Click()
arrSupCode(5) = E139
End Sub
Private Sub OptionButton43_Click()
arrSupCode(5) = E144
End Sub
Private Sub OptionButton44_Click()
arrSupCode(5) = E600
End Sub
Private Sub OptionButton45_Click()
arrSupCode(5) = E601
End Sub
'---------- 6 --------
Private Sub OptionButton46_Click()
arrSupCode(6) = E102
End Sub
Private Sub OptionButton47_Click()
arrSupCode(6) = E116
End Sub
Private Sub OptionButton48_Click()
arrSupCode(6) = E118
End Sub
Private Sub OptionButton49_Click()
arrSupCode(6) = E123
End Sub
Private Sub OptionButton50_Click()
arrSupCode(6) = E125
End Sub
Private Sub OptionButton51_Click()
arrSupCode(6) = E139
End Sub
Private Sub OptionButton52_Click()
arrSupCode(6) = E144
End Sub
Private Sub OptionButton53_Click()
arrSupCode(6) = E600
End Sub
Private Sub OptionButton54_Click()
arrSupCode(6) = E601
End Sub
'---------- 7 --------
Private Sub OptionButton55_Click()
arrSupCode(7) = E102
End Sub
Private Sub OptionButton56_Click()
arrSupCode(7) = E116
End Sub
Private Sub OptionButton57_Click()
arrSupCode(7) = E118
End Sub
Private Sub OptionButton58_Click()
arrSupCode(7) = E123
End Sub
Private Sub OptionButton59_Click()
arrSupCode(7) = E125
End Sub
Private Sub OptionButton60_Click()
arrSupCode(7) = E139
End Sub
Private Sub OptionButton61_Click()
arrSupCode(7) = E144
End Sub
Private Sub OptionButton62_Click()
arrSupCode(7) = E600
End Sub
Private Sub OptionButton63_Click()
arrSupCode(7) = E601
End Sub
'---------- 8 --------
Private Sub OptionButton64_Click()
arrSupCode(8) = E102
End Sub
Private Sub OptionButton65_Click()
arrSupCode(8) = E116
End Sub
Private Sub OptionButton66_Click()
arrSupCode(8) = E118
End Sub
Private Sub OptionButton67_Click()
arrSupCode(8) = E123
End Sub
Private Sub OptionButton68_Click()
arrSupCode(8) = E125
End Sub
Private Sub OptionButton69_Click()
arrSupCode(8) = E139
End Sub
Private Sub OptionButton70_Click()
arrSupCode(8) = E144
End Sub
Private Sub OptionButton71_Click()
arrSupCode(8) = E600
End Sub
Private Sub OptionButton72_Click()
arrSupCode(8) = E601
End Sub
'---------- 9 --------
Private Sub OptionButton73_Click()
arrSupCode(9) = E102
End Sub
Private Sub OptionButton74_Click()
arrSupCode(9) = E116
End Sub
Private Sub OptionButton75_Click()
arrSupCode(9) = E118
End Sub
Private Sub OptionButton76_Click()
arrSupCode(9) = E123
End Sub
Private Sub OptionButton77_Click()
arrSupCode(9) = E125
End Sub
Private Sub OptionButton78_Click()
arrSupCode(9) = E139
End Sub
Private Sub OptionButton79_Click()
arrSupCode(9) = E144
End Sub
Private Sub OptionButton80_Click()
arrSupCode(9) = E600
End Sub
Private Sub OptionButton81_Click()
arrSupCode(9) = E601
End Sub
 
'---------- 10 --------
Private Sub OptionButton82_Click()
arrSupCode(10) = E102
End Sub
Private Sub OptionButton83_Click()
arrSupCode(10) = E116
End Sub
Private Sub OptionButton84_Click()
arrSupCode(10) = E118
End Sub
Private Sub OptionButton85_Click()
arrSupCode(10) = E123
End Sub
Private Sub OptionButton86_Click()
arrSupCode(10) = E125
End Sub
Private Sub OptionButton87_Click()
arrSupCode(10) = E139
End Sub
Private Sub OptionButton88_Click()
arrSupCode(10) = E144
End Sub
Private Sub OptionButton89_Click()
arrSupCode(10) = E600
End Sub
Private Sub OptionButton90_Click()
arrSupCode(10) = E601
End Sub
 
Private Sub UserForm_Activate()
CommandButton1_Click
End Sub
 
Private Sub UserForm_Click()
 
End Sub