Copy text ONLY Cell Content on Arrow key select

Hi guys,

I'm in desperate need of a script that will copy text ONLY on any cell that is selected via arrow keys?

I was using a script I got from here before but instead of arrow keys it copied via mouse click.

Here's the code for the single click-can someone help me modify it to copy text ONLY on any cell that is selected via arrow keys instead?:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

If Intersect(Target, Sh.Range("A1:J10000")) Is Nothing Then Exit Sub

Dim DataObj As Object
Dim S As String
Set DataObj = GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
S = ActiveCell.Text
DataObj.SetText S
DataObj.PutInClipboard

End Sub

Thanks so much in advance, this would really help me out at work. Any help would be greatly appreciated.

erm.... sorry guys, ignore this post. It appears the script ALREADY does that! woooot!