For i = 1 To lRow
If Sheets("DB").Range("A" & rCount).Value = aEmpID.Value Then
aName.Value = Sheets("DB").Range("A" & lRow).Offset(0, 1).Value
End If
rCount = rCount + 1
Next i

--
Regards,
Tom Ogilvy


wrote in message
oups.com...
Forgot to mention one thing.

DB is not the active sheet. It is hidden and for some reason I want it
to be hidden. My active sheet is BLANK with no data in it. I want to
finish this asap. Any urgent help would be appreciated.