title: Move Rows using "contains" criteria
body: <p>I have built a Macro to move rows of information to new sheets based on certain criteria.</p>
  
  <p>All of them work, the last one however needs to pull anything that "contains" text.</p>
  
  <p>This is what I wrote, but it is not working.  Help?</p>
  
  <p>Current code:</p>
  
  <pre><code>Dim r As Range
  Dim i As Integer
  Dim Source As Worksheet
  Dim Target As Worksheet
  Set Source = ActiveWorkbook.Worksheets("Sheet1")
  Set Target = ActiveWorkbook.Worksheets("Sheet2")
  i = 2
  For Each r In Source.Range("E1:E3000")
      If r = "=*Wavelengths*" Then
          Source.rows(r.Row).Cut Target.rows(i)
          i = i + 1
      End If
  Next r
  </code></pre>