Here's a UDF :-
Function mtch(v As String, r As Range)
Dim cell As Range, x%
x = 1
For Each cell In r
If v = cell.Value Then
mtch = x
Exit For
End If
x = x + 1
Next
End Function
Enter in the worksheet in the format =mtch(v,(r)).
v is the look-up value and r is the cell-refs.