Deleting Rows with certain text strings

Dim oCell As Range
Dim lRows As Long
Dim lCols As Long
Dim lRowCount As Long
Dim lColCount As Long
Dim iFlags As Integer
Dim oUnion As Range
Dim tstring1 As String
Dim tstring2 As String
Dim tstring3 As String
 
tstring1 = "Text 1 to search for"
tstring2 = "Text 2 to search for"
tstring3 = "Text 3 to search for"
 
lRows = ActiveSheet.UsedRange.Rows.Count
lCols = ActiveSheet.UsedRange.Columns.Count
 
For lRowCount = 1 To lRows
    For lColCount = 1 To lCols
    
        If InStr(1, UCase(ActiveSheet.Cells(lRowCount, lColCount)), UCase(tstring1)) Then
            iFlags = iFlags Or 1
        End If
        
        If InStr(1, UCase(ActiveSheet.Cells(lRowCount, lColCount)), UCase(tstring2)) Then
            iFlags = iFlags Or 2
        End If
        
        If InStr(1, UCase(ActiveSheet.Cells(lRowCount, lColCount)), UCase(tstring3)) Then
            iFlags = iFlags Or 4
        End If
    Next lColCount
    
    If iFlags <> 7 Then
        If oUnion Is Nothing Then
            Set oUnion = ActiveSheet.Rows(lRowCount)
        Else
            Set oUnion = Union(oUnion, ActiveSheet.Rows(lRowCount))
        End If
    End If
    
    iFlags = 0
    
Next lRowCount
 
oUnion.Interior.ColorIndex = 3
'oUnion.Rows.Delete