LastRow = Range("A" & rows.count).end(xlup).row
rows("1:" & LastRow).sort _
header:=xlyes, _
key1:=Range("B1"), _
order1:=xlascending

"Risky Dave" wrote:

Hi,

On one sheet I have a list of names, and on another the same names (though
not necessarily in the same order) and two other columns (not contiguous to
the names column) that calculate the age in number of complete years and
number of odd months; eg:

A B C D
Name date of birth full years from dob additional months from dob

so it would look like (for June 2009):
A B C D
Janet 01/01/75 34 6

What I am after is a bit of code that can sit in the worksheet Change Event
and sort the list of names only by date of birth, oldest to youngest.

Any help would be appreciated.

TIA

Dave