title: vba function to copy certain value from one workbook to another
body: <p>I have 2 workbooks. I need copy the row in one workbook only if it contains a certain value from another workbook. Here's my code, it works for the first i=21 and i=22 but tells me there's an error in Cells.Find when I reach i=23.</p>
  
  <pre><code>For i = 21 To 35
      Windows("Run Report.xlsm").Activate
      Dim strL3 As String
      strL3 = Sheets("Summary").Range("A" &amp; i).Value
      Workbooks("Ace Survey - Level 1 and level 3 Trending (w Resolution) v3").Activate
      Range("A1").Activate
      Cells.Find(What:=strL3, After:=ActiveCell, LookIn:=xlFormulas, _
          LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
          MatchCase:=False, SearchFormat:=False).Activate
      If strL3 = "Call Disconnected" Or strL3 = "Caller Not Present" Then
          ActiveCell.Offset(2, 2).Select
      Else
          ActiveCell.Offset(1, 2).Select
      End If
      Application.CutCopyMode = False
      ActiveCell.Copy
      Windows("Run Report.xlsm").Activate
      Sheets("Summary").Select
      Range("G" &amp; i).Select
      ActiveSheet.Paste
  Next i
  </code></pre>