Double click cell to return cell contents into another cell (VBA)
<p>I'd like to be able to double-click a cell and have the cell value/text be returned into another cell. </p>

<p>My code so far is:</p>

<pre><code>Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 If Intersect(Target, Range("E:P")) Is Nothing Then
 Else
    ActiveCell.Copy Destination:=Sheets("Sheet1").Range("S13")
 End If
End Sub
</code></pre>

<p>The problem with this code is that I want the actual cell contents, not necessarily the numeric value. </p>

<p>For instance, in cell E12, I have the text "Completed", but when I double click E12, a "0" gets returned in cell S13 and not the text "Completed".</p>