删除所有不包含特定文本的行：使用InStr（范围）定义搜索范围

Question

I want to delete any row that does not contain a specific text (Federation). The term may be in numerous columns, and may be prefaced by either LOI-, COC- or REA- (ie LOI-Federation).
My range of columns has the error

Method of 'Range' of Object'_Global' Failed

I want to search column O through column IH.

Sub CYJLMasterReportMacro()
    SeparateDesignation ("Federation")
End Sub

Sub SeparateDesignation(ByVal DesignationName As String)

    Worksheets.Add().Name = DesignationName
    Worksheets("Results").Activate
    ActiveSheet.Cells.Copy
    Worksheets(DesignationName).Activate
    ActiveSheet.Paste

    Dim i As Integer
    For i = 743 To 2 Step -1
        If InStr(Range("O:IH" & i), DesignationName) = 0 Then
            Range("O:IH" & i).EntireRow.Delete
        End If
    Next

End Sub

Answer 1

You can use Find :

Sub SeparateDesignation(ByVal DesignationName As String)

    Dim f As Range, i As Long, wsNew as Worksheet

    Worksheets("Results").Copy After:= Worksheets("Results")
    Set wsNew = Worksheets(Worksheets("Results").Index + 1)
    wsNew.Name = DesignationName

    For i = 743 To 2 Step -1
        Set f = nothing
        Set f = wsNew.Range("O" & i & ":IH" & i).Find(DesignationName, lookat:=xlPart)
        If f is nothing Then
            wsNew.Rows(i).Delete
        End If
    Next

End Sub