To capture current Date when a particular cell is copied or clicked

[Giritharanj]

Hi, Please help me with VBA code to capture the current date when a particular cell in excel is clicked or copied. like doubleclick or rightclick event.

[TABLE="width: 334"]
<tbody>[TR]
[TD]Order#[/TD]
[TD] Status [/TD]
[TD]Comments[/TD]
[TD]Last access date[/TD]
[/TR]
[TR]
[TD]AD1212462[/TD]
[TD]Completed[/TD]
[TD]Login success[/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

 

[Giritharanj]

I tried using code from google but its only captures date when the cell is editted.
Please help

 

[Giritharanj]

I tried using code from google but its only captures date when the cell is edited. My requirement is to capture date when the cell s copied.
Please help

"Private Sub Worksheet_Change(ByVal Target As Range)
Dim WorkRng As Range
Dim Rng As Range
Dim xOffsetColumn As Integer
Set WorkRng = Intersect(Application.ActiveSheet.Range("B:B"), Target)
xOffsetColumn = 1
If Not WorkRng Is Nothing Then
Application.EnableEvents = False
For Each Rng In WorkRng
If Not VBA.IsEmpty(Rng.Value) Then
Rng.Offset(0, xOffsetColumn).Value = Now
Rng.Offset(0, xOffsetColumn).NumberFormat = "dd-mm-yyyy"
Else
Rng.Offset(0, xOffsetColumn).ClearContents
End If
Next
Application.EnableEvents = True
End If
End Sub"