title: Delete entire row when a value exist in a second sheet
body: <p>I have 2 sheets: sheet1 and sheet2. I have a value in cell A3 (sheet1) which is not constant. And many files in sheets2.</p>
  
  <p>What I would like to do, is when the value in cell A3 (Sheet1) is the same as the value in the column A (Sheet2), it will delete the entire row where is find this value (Sheet2).</p>
  
  <p>This is my attempt. It doesn't work: no rows are deleted.</p>
  
  <pre><code>If Worksheets("Sheet1").Range("A3").Text = Worksheets("Sheet2").Range("A:A").Text Then
      Dim f As String
      f = Worksheets("Sheet1").Range("A3")        
      Set c = Worksheets("Sheet2").Range("A:A").Find(f)
      Worksheets("Sheet2").Range(c.Address()).EntireRow.Delete
  End If
  </code></pre>