title: How to get row and column fby using Cells.Find
body: <p>i'm using this code trying to get row and column where there is the cell which i'm looking for but it returns nothing. Can anyone help me with this.</p>
  
  <pre><code>i = 1
  
      Do While Workbooks("Lisses.xls").Sheets("Components").Cells(i, 2).Value &lt;&gt; ""
          Set cell = Cells.Find(What:=Workbooks("Lisses.xls").Sheets("Components").Cells(i, 2).Value)
          Dim a() As String
          a = Split(cell.Address, "$")
  
          Workbooks("macro_example.xlsx").Sheets("Feuil1").Cells(i, 7).Value = Workbooks("COMPSTK.xls").Sheets("COMPSTK").Cells(a(1), a(2)).Value
          i = i + 1                                                'Passe à la ligne suivante
      Loop
  </code></pre>