This Change-event macro will put the date in C1 when "order" is typed in A1
and the "Enter" key is pressed.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Range("a1").Value = "order" Then
Range("c1").Value = Date
End If
End Sub

Vaya con Dios,
Chuck, CABGx3


"robert w" <robert wrote in message
...
is there a way to stop a cell being recalculated when useing the now()
function ?
e.g if(a1="order",c1=now(),"")....but i dont want the cell updated after
its
inital value is obtained.