title: Set names of cells equal to value of adjacent cells
body: <p>I have two columns of data: the first strings such as "name1", "name2", ..., the adjacent column has data but I would like to rename the cells in this column equal to the first column's string values. E.g.:</p>
  
  <pre><code>    1      2
  A   name1  x
  B   name2  y
  </code></pre>
  
  <p>Thus, cell A2 should attain name = "name1".</p>
  
  <pre><code>Sub nameCells()
    Worksheets("Output").Cells(1, "A").Name = "David" 
  End Sub
  </code></pre>
  
  <p>This code will name the cell A1 = "David", but I am unable to figure out how to copy the value of a cell instead of a hardcoded "David".</p>