Use Application.Match
Example:
Dim pos, arr, val arr=Array(1,2,4,5) val = 4
pos=Application.Match(val, arr, False) if not iserror(pos) then Msgbox val & " is at position " & pos else Msgbox val & " not found!" end if