VBA Filter by Color /show all row having one colored cell

[nyounaki]

HI ,
I am having around 15 Columns A,B,C,D,....etc.
I am looking for function to filter rows by color by showing "all rows if one -at least- of their cells has a red color (like Red background ) , can you please help ?
Thanks

 

[mrshl9898]

Try:

Sub hidecolouredcellrows()

Dim ws As Worksheet

Set ws = ActiveSheet

For Each cell In ws.UsedRange
    If cell.Interior.Color = vbRed Then
    Rows(cell.Row).Hidden = True
    End If
Next cell
  
End Sub

 

[nyounaki]

Try:

Sub hidecolouredcellrows()

Dim ws As Worksheet

Set ws = ActiveSheet

For Each cell In ws.UsedRange
    If cell.Interior.Color = vbRed Then
    Rows(cell.Row).Hidden = True
    End If
Next cell
 
End Sub

 

[nyounaki]

HI I have more than 1K Records, is taking very long time to execute this function more than 20 minutes, is there other way in VBA like using advanced filter functions in VBA?