I have tried using vLookUp to look up a name and return a phone number. It works sometime, but not 100% of the time.

Name Phone
John Smith 519-555-6666
James Smart 519-555-8888
Jason Black 519-555-8983

Since it did not work I tried writing my own look up but that also has caused problems. Comment on either one would be helpful

Function Phone(Name As String)
Dim Column As Integer

Column = 10
x = 2
Do
If Name = Worksheets("Settings").Cells(x, Column).Value Then
Exit Do
End If
x = x + 1
Loop Until Cells(x, Column) = ""
Phone = Worksheets("Settings").Cells(x, Column + 1)

End Function