Sub CheckComboNew()
Dim x As Control
Counter = 0
    With numFGNew
        For Each x In .Controls
            If TypeOf x Is MSForms.ComboBox Then
                If x.Tag = "w" Then
                    If x.Value <> "" Then Counter = Counter + 1
                End If
            End If
        Next
    End With
    If Counter = 1 Then Call FinderNew
End Sub

Sub FinderNew()
Dim rw As Long, i As Long, x
    rw = Cells(Rows.Count, "br").End(xlUp).Row 'номер ищется в "br".
    x = 0
    With numFGNew
        For i = 2 To rw
            'If Cells(i, 4) = .ComboBox1 Then
            If CStr(Cells(i, 70)) = .ComboBox1 Then '№ столбца в котором будет поиск, то есть в "br".
                'If Cells(i, 5) = .ComboBox2 Then
                    'If Cells(i, 6) = .ComboBox5 Then
                        'If Cells(i, 7) = CDate(.ComboBox4) Then
                            .ListBox1.AddItem ""
                            .ListBox1.List(x, 0) = i
                            .ListBox1.List(x, 1) = Cells(i, 97) '97--номер столбца, для выведения в ListBox1.
                            x = x + 1
                        End If
                    'End If
                'End If
           ' End If
        Next
    End With
End Su,