In Excel 2003 I have a formula in column D which gives today's date and column E which gives the time. When I'm on, let's say line 7, how can I make cells D7 and E7 copy/paste special as values when I move to cell D7? In other words, I'm building some sort of a log and formula in column D is =now() but I want that date to remain static. And so for column E with the time.

I tried the following, but it seems that the vbKeyReturn is not working :

Private Sub Text1_KeyDown(KeyCode As Integer)

If KeyCode = vbKeyReturn Then
With ActiveWorksheet
.Range("D&ActiveCell.RowAdress&:&E&ActiveCell.RowAdress&").Select
.Range("D&ActiveCell.RowAdress&:&E&ActiveCell.RowAdress&").Copy
.Range("D&ActiveCell.RowAdress&:&E&ActiveCell.RowAdress&").Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=FalseCall
Application.CutCopyMode = False

End With
End If

End Sub

Thanks.