Sub test()
Dim lr As Long, x As Long, at As Integer, qt As Integer, arr As Variant
lr = Range("A" & Rows.Count).End(xlUp).Row
arr = Range("H1").CurrentRegion 'Column with keywords
For x = lr To 3 Step -1
For i = 2 To UBound(arr)
at = InStr(1, Range("A" & x) & " " & Range("B" & x) & " " & Range("C" & x), arr(i, 1) & " ", vbTextCompare)
If at > 0 Then qt = qt + 1
Next
If qt = 0 Then Range("A" & x).EntireRow.Hidden = True
qt = 0
Next
End Sub
Sub test2()
ActiveSheet.Rows.Hidden = False
End Sub
Kind regards
Leo
Bookmarks