Well the easiest way out:

1. In the worksheet, chose a conveninet cell where you want to display
the last price enter. Name this cell as "LastPrice".

2. In that worksheet_change event procedure add following code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 6 Then
Range("LastPrice").Value = Target.Value
End If
End Sub

Above is assuming price is in coloumn 6 (F). Change the coloumn number
accordingly.

Sharad


*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!