المساعده فى تعديل هذا الكود الخاص بالفلترة فى الليست بوكس

[الصفتى]

السلام عليكم و رحمة الله
كل عام و انتم بخير
لدى هذا الكود لفلترة الليست بوكس باستخدام "checkbox" و باستخدام "combobox" و هو يعمل جيدا فى حالة ان يكون هناك اختيار فى "combobox" اما فى حالة عدم وجود اختيار فى"combobox" فانه لا يعمل  فلترة ب"checkbox" فهل يمكن تعديله لكى يعمل فى كلتا الاحوال
و شكرا جزيلا

On Error Resume Next
Dim aTB() As Variant, bTB As Variant
Dim c As Integer, i As Integer
c = 0
For i = 7 To 12
    If Me("CheckBox" & i).Value = True Then
        ReDim Preserve aTB(c)
        aTB(c) = Me("CheckBox" & i).Caption
        c = c + 1
    End If
    Next

If Not Not aTB Then
    With ListBox2
        For i = .ListCount - 1 To 0 Step -1
            bTB = Filter(aTB, .List(i, 2), , vbTextCompare)
            If .List(i, 2) = "" Or UBound(bTB) < 0 Then .RemoveItem (i)
        Next

    End With
    End If
      If Len(Trim(Me.ComboBox2)) > 0 Then
     ReDim Preserve aTB(c)
     aTB(c) = Me.ComboBox2.Value
     c = c + 1
      End If
     
     If Not Not aTB Then
    With ListBox2
        For i = .ListCount - 1 To 0 Step -1
            bTB = Filter(aTB, .List(i, 3), , vbTextCompare)
            If .List(i, 3) = "" Or UBound(bTB) < 0 Then .RemoveItem (i)
        Next
        
    End With
End If

 

test - Copy.xlsb