Duke, good catch, i wouldn't have had an idea :)

--
Cheers
JulieD
check out www.hcts.net.au/tipsandtricks.htm
....well i'm working on it anyway
"Duke Carey" wrote in message
...
Make sure you put the code in the right procedure. It sounds as if your
procedure is named

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

and not

Private Sub Worksheet_Change(ByVal Target As Range)

The former fires every time you select a new cell, the latter fires only
when a cell is changed


" wrote:

Duke and Julie, I tried the VBA code and have it working. The only
problem is I do not have to enter any data in column A to get the date
in column B. All I need to do is position the curser on a cell in
column A and the date is input. What the problem is, if I move the
curser up to previously input cells, it changes the date. Is there a
way to have this work where you have to have data in each of the
respective column A cells?

Rick