Shane

I would click on the "maybe" button depending upon answers to Rick's query.

Your code will overwrite B1 when a new priority number is entered in A1

From OP's description, sounds like B1 date should remain as was and B2 to
get new date.


Gord


On Mon, 9 Feb 2009 08:41:02 -0800, Shane Devenshire
wrote:

Hi,

Here is some sample code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim isect As Range
Set isect = Application.Intersect(Target, Range("A1:A100"))
If Not isect Is Nothing Then
Target.Offset(0,1) = Date
End If
End Sub