Hi G33kman

I'm not clear on your issue...see if this handles it 
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim c As Range
    Dim ws As Worksheet
    Dim ws1 As Worksheet

    Set ws = Sheets("datavalidation")
    Set ws1 = Sheets("protectedInformation")

    If Not Target.Column = 7 Then Exit Sub
    Application.ScreenUpdating = False

    Set c = ws.Range("empName").Find(Target.Value, LookIn:=xlValues)

    Application.EnableEvents = False
    ws1.Cells(Target.Row + 1, 5).Value = c.Offset(0, 1).Value
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub