Try this
Public Function look_up_id(id, table) As Variant
Dim ws As Worksheet
Dim aCell As Range
look_up_id = "Not Found"
Set ws = ThisWorkbook.Sheets(table)
With ws
Set aCell = .Cells.Find(What:=id, _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False, _
SearchFormat:=False)
If Not aCell Is Nothing Then _
look_up_id = aCell.Offset(, 1).Value
End With
End Function
More on .Find
HERE