title: Find or Search for a value and get its cell location
body: <p>The column to Search is A, The value I want returned is from column B (next to it) but also wants its cell address of the value in column B. </p>
  
  <p>So far I have the below (as far is return value in B column)</p>
  
  <pre><code>Private Sub CommandButton21_Click()
  
  Dim MatchFormula As Long
  Dim IndexFormula As Range
  
  MatchFormula = WorksheetFunction.Match(Range("Today"), Range("A:A"), 0)
  Set IndexFormula = WorksheetFunction.Index(Range("B:B"), MatchFormula, 0)
  
  IndexFormula.Value = Range("G5").Value
  End Sub
  </code></pre>
  
  <p>But it says </p>
  
  <pre><code>MatchFormula = WorksheetFunction.Match(Range("Today"), Range("A:A"), 0)
  </code></pre>
  
  <p>Gives this error</p>
  
  <pre><code>has Run-time error '1004':
  
  Method 'Range' of object'_Worksheet' failed
  </code></pre>