title: VBA: Passing multiple values to Instr
body: <p>Right now I have a long list of "Industry" values that users have submitted through a form. I've written a macro that will search for particular terms in those values and paste values that conform to my significantly smaller list of "acceptable" Industry values. The point is to reclassify all of the current industry values users have submitted into my existing taxonomy. Here's the way my If-Then statements look as of right now:</p>
  
  <pre><code>If InStr(1, Cells(i, "A").Value, "Energy") &gt; 0 Or InStr(1, Cells(i, "A").Value, "Electricity") &gt; 0 Or InStr(1, Cells(i, "A").Value, "Gas") &gt; 0 Or InStr(1, Cells(i, "A").Value, "Utilit") &gt; 0 Then
  Cells(i, "B").Value = "Energy &amp; Utilities"
  End If
  </code></pre>
  
  <p>It's pretty ugly. Works perfectly fine, but is a bear to read. My macro is littered with these barely-intelligible If-Then statements, and it's difficult to read through it all. Is there any way to pass multiple values to the "String2" argument of <code>Instr</code>?</p>