copy content and position cursor in destination cell, ready to edit

[mdavid]

Hi, I have the following code:

         ActiveCell.Offset(0, 1).Value = ActiveCell
         ActiveCell.Offset(0, 1).Select

Which copies the content from cell to cell, but I need the cursor to be positioned at the end of the destination cell so I can edit the text, instead all I get is a big plus sign and when I click in the cell the copied content disappears and the cursor's at the beginning of a blank cell.
How do I position the cursor in the destination cell so I can edit the copied content.
Thanks for any help
David

 

[AlanSidman]

try this:

Sub afoo()
        ActiveCell.Offset(0, 1).Value = ActiveCell
        ActiveCell.Offset(0, 1).Select
        SendKeys "{F2}"
End Sub

 

[mdavid]

Thanks Alan amazing how simple it all is - just have to know what to do