Yo need to put the birthdate onto Sheet A and then sort. the code
below looks up each brithdate using column A as the ID field for each
sheet.

Sub SortByBirthdates()


Set sht = Sheets("Sheet A")
Set BirthSht = Sheets("Sheet B")


With sht
LastRow = .Range("A" & Rows.Count).End(xlUp).Row
For RowCount = 1 To LastRow
'get ID field from Column A
ID = .Range("A" & RowCount)
'lookup ID in 2nd sheet

With Sheets("sheet B")
Set c = .Columns("A").Find(what:=ID, _
LookIn:=xlValues, lookat:=xlWhole)
If c Is Nothing Then
MsgBox ("Cannot find ID : " & ID)
Else
BirthDate = .Range("B" & c.Row)
sht.Range("B" & RowCount) = BirthDate
End If
End With
Next RowCount

'now sort by birth date
Rows("1:" & LastRow).Sort _
header:=xlNo, _
key1:=.Range("B1"), _
order1:=xlAscending

End With

End Sub


--
joel
------------------------------------------------------------------------
joel's Profile: 229
View this thread: http://www.thecodecage.com/forumz/sh...d.php?t=189249

http://www.thecodecage.com/forumz/chat.php