фильтрация по цвету

[Radnoy]

Все здравствуйте!
Имеется такой код:

Private Sub CommandButton1_Click()
    Dim cell As Range
    For Each cell In Range([c9], Range("c" & Rows.Count).End(xlUp)).cells
        With ViddForm
        If .OptionButton1 Then
        cell.EntireRow.Hidden = cell.Interior.ColorIndex = 36
        End If
        If .OptionButton2 Then
        cell.EntireRow.Hidden = cell.Interior.ColorIndex = 40
        End If
        If .OptionButton3 Then
        cell.EntireRow.Hidden = cell.Interior.ColorIndex = 43
        End If
        If .OptionButton4 Then
        cell.EntireRow.Hidden = False
        End If
        End With
    Next cell
    Application.ScreenUpdating = True
End Sub

тут всё понятно, выбираем нужный OptionButton и идёт фильтрация по цвету НО вот вопрос:
КАК фильтровать строки нескольких цветов?
типо что-то такого:
cell.EntireRow.Hidden = cell.Interior.ColorIndex = 36 And cell.EntireRow.Hidden = cell.Interior.ColorIndex = 40
но очевидно такое не работает((
Как можно это сделать?
Заранее спасибо!

[Radnoy]

Всем большое спасибо!
нашёл что-то подобное

Sub FiltColor()

    Dim x As Integer, c As Long
    Application.ScreenUpdating = False
    x = ActiveCell.Interior.ColorIndex: c = ActiveCell.Column: On Error Resume Next
    For i = 1 To ActiveSheet.UsedRange.Row + ActiveSheet.UsedRange.Rows.Count
        If Cells(i, c).Interior.ColorIndex <> x Then Rows(i).Hidden = True
    Next
      
End Sub
Sub ReFilt()

    Cells.EntireRow.Hidden = False

End Sub