Cell a1 is a date cell. Cells b1-b30 are date cells. What I am trying to do
is every time that I enter a new date in Ai, I want it to go to a blank cell
in b column and not over write the dates that are already there.

A B
2/3/04 1/6/04
1/20/04
1/25/04
2/3/04

right click sheet tab>view code>copy\paste this>format col B as desired date
>save.
Now when you put a date in a1 such as 8/1, the last cell+1 in col b will get
that date.

Private Sub Worksheet_change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
Cells(Cells(Rows.Count, "b").End(xlUp).Row + 1, "b") = Target
End Sub

--
Don Guillett
SalesAid Software
(E-Mail Removed)
"GW Dyson" <(E-Mail Removed)> wrote in message
news:Qk3Wc.4441$(E-Mail Removed)...
> Cell a1 is a date cell. Cells b1-b30 are date cells. What I am trying to
do
> is every time that I enter a new date in Ai, I want it to go to a blank
cell
> in b column and not over write the dates that are already there.
>
> A B
> 2/3/04 1/6/04
> 1/20/04
> 1/25/04
> 2/3/04
>
>
>