title: VBA Excel match or find substring
body: <p>Quick example:</p>
  
  <pre><code>    A      B       C      D      E      F
  1          
  2                 str1   str2   str3   str4
  </code></pre>
  
  <p>I want to store the first range-object, in row 2, with <code>str</code> as the first three characters of the cell.</p>
  
  <p>Is this possible in VBA?</p>
  
  <p>This is what I am trying to achieve:</p>
  
  <pre><code>Dim rng As Range
  Dim colNr as integer
  colNr = WorksheetFunction.Match(left(cell.value,3)="str", .range("2:2"), 0)
  set rng = Sheets("Sheet1").cells(2,colNr)
  </code></pre>