Gord,
Thank you very much for your timely reply. It was very helpful. Here
is the problem that I am now experiencing.

Firstly, The column I need automatically sorted is column D (not A),
and I need it actually to start with row 9, and only go through row 75.
Is that at all possible?

Secondly, when I tried your code, it worked, but it would not link the
cells in column A with their respective cells in columns 2, 3, 4, etc.
The result was that the dates automatically jumped into a sorted
position, but they were not linked with the names, locations, etc. that
were to go with them in the other columns. The dates worked, but then
the other information was not.

Is there any way to have Excel sort my list ascending via the
information in D9-D75, and have it link the information in columns A-C
to the cells in their respective rows in column D?

I know I'm asking a lot - thank you very much.

-Ben LoPresti


Gord Dibben wrote:
> Ben
>
> You have to use event code in the sheet module.
>
> Right-click on your sheet tab and "View Code"
>
> Copy/paste this code into that module.
>
> Private Sub Worksheet_Change(ByVal Target As Range)
> Columns(1).Sort Key1:=Range("A1"), Order1:=xlAscending, _
> Header:=xlGuess, OrderCustom:=1, _
> MatchCase:=False, Orientation:=xlTopToBottom
> End Sub
>
> As you enter data in column A it will sort.
>
>
> Gord Dibben MS Excel MVP
>
>
> On 5 Aug 2006 13:10:54 -0700, ben.lopresti@gmail.com wrote:
>
> >I am trying to keep my records in Excel, and I want to keep the list
> >sorted by "Last Date Contacted". This column is constantly being
> >updated, depending on when the person was contacted last.
> >
> >Right now, I have to sort the list after each change to a cell in the
> >"Last Date Contacted" column. Is there any way to make the list
> >automatically sort itself in real-time, based on any changes that I
> >make to this column? (when I change the date, the row would
> >automatically jump to its proper place, based on the new date)
> >
> >Thanks a lot.
> >
> > -Ben LoPresti

>
> Gord Dibben MS Excel MVP