title: VBA: Loop through an string array of variants and delete rows if matching value
body: <p>I've got multiple text variables (fruits) that when and if they appear on column R I need to delete the entire row. I've got the following code, but as I have 15 variables of "Fruit" (and may need to add more in the future) I was wondering how I could make this is a single subroutine with a loop. I tried many ways failing miserably. Possibly with a string array including all the names?</p>
  
  <p>Thanks in advance,</p>
  
  <pre><code>Sub Fix1()
  Dim Fruit As String
  
  Fruit = "Apple"
  
  Do
  On Error GoTo ByeBye
  Range("R:R").Find(Fruit).EntireRow.Delete
  Loop
  ByeBye:
  Exit Sub
  End Sub
  
  
  
  Sub Fix2()
  Dim Fruit As String
  
  Fruit = "Orange"
  Do
  On Error GoTo ByeBye
  Range("R:R").Find(Fruit).EntireRow.Delete
  Loop
  ByeBye:
  Exit Sub
  End Sub
  </code></pre>