Function FindGender(NAME)
FindGender = WorksheetFunction.VLookup(NAME, Range("b2:g100"), 2, False)
End Function