title: How to double-click a cell and copy value from a single-click of another cell?
body: <p>I think this is pretty close but something is not quite right here.  I’m trying to double-click and cell in ColumnD and select a second Sheet, then click a cell in this second sheet, and the value is copied/pasted into the cell that I double clicked.  The thing is, I want to do this a few times, so if I double click the same cell 2 times, and jump to the second sheet 2 times, I want the value in the very first cell preserved.  So, If I have nothing in D3, then I double click it, I can select a cell in the second sheet.  Let’s say it is LQ1; this is copied/pasted into D3.  Then, I click D3 again, jump to the second sheet again, and select a cell in the second sheet.  Let’s say it is LQ2.  I want D3 to have LQ1 and LQ2 (and repeat over and over).</p>
  
  <p>This is what I have so far.  I tried a couple ideas.  The thing is, when I click the cell in the second sheet, I don’t know how to get it to move back to the first sheet.</p>
  
  <pre><code>Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  
      If Target.Column = 4 Then
          CellSelect = ActiveCell.Value
          CellAddress = ActiveCell.Address
          Sheets("Setup Questions").Select
          If Intersect(Target, Range("B2:B38")) Is Nothing Then
              Cancel = True
              Target.Copy
              Sheets("CP (POS) Tasklist").Range(CellAddress).PasteSpecial Paste:=xlPasteValues
          End If
      End If
  End Sub
  </code></pre>