Поиск строк содержащих определенное слово

Sub Выборка_строк()
  Dim i&, k&
  Dim ws As Worksheet, Otchot As Worksheet
  Dim RezPoiska As Range
  Dim Iskomoe$
  Iskomoe = "ZZZ"
  ' Если искомое слово надо вводить через диалог, то расскоментируйте следующую строку
  'Iskomoe = InputBox("Введите искомое слово")
  With Application
    .Calculation = xlCalculationManual
    .ScreenUpdating = False
    With ActiveWorkbook
        Set Otchot = .Worksheets.Add(.Worksheets(1))
        Otchot.Name = "Найдено"
        For Each ws In .Worksheets
          If Not ws Is Otchot Then
            For i = 1 To ws.Rows.Count
                Set RezPoiska = ws.Rows(i).Find(What:=Iskomoe, LookIn:=xlFormulas, _
                    LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
                    MatchCase:=False, SearchFormat:=False)
                If Not RezPoiska Is Nothing Then
                    k = k + 1
                    ws.Rows(i).Copy Otchot.Rows(k)
                End If
            Next
          End If
        Next ws
    End With
    .Calculation = xlCalculationAutomatic
    .ScreenUpdating = True
  End With
End Sub

Set RezPoiska = ws.Range(ws.Cells(i,1), ws.Cells(i,3)).Find(What:=Iskomoe, LookIn:=xlFormulas, _
                    LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
                    MatchCase:=False, SearchFormat:=False)